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KONU 1 
TEMEL KURS 


Bölüm 1: Kurma.... 


CPC 6128 aşağıdaki şekillerde kurulabilir ve kullanılabilir. 

I. AMSTRAD GT 65 Yeşil tüplü monitör ile. 

2. AMSTRAD CTM 644 Renkli monitör ile. 

3. AMSTRAD MP2 Modülatör/Güç kaynağı ve standart ev tipi (UHF) televiz- 
yon ile. 


Fişe takma 


CPC 6128 220-240 V/50 Hz AC şehir şebeke ceryanı ile çalışır. GT 65, GT 644 
veya MP? için uygun cereyan fiş ve soketi kullanın. 


Önemli 


Cereyan kablosundaki renk kodlaması şu şekilde yapılmıştır. 


Mavi: Nötr 
Kahverengi: Canlı 


Bilgisayar kullanılmadığı zaman fişi çekiniz. 

Bigisayarın kasasını, monitörü veya modülatör/güç kaynağını açmayın ve vidala- 
rını gevşetmeyin. CPC 6128 ve MP2'nin kasasının altında yer almış ve GT 65 veya 
CTM 644 kutusunun arkasında yer almış ikazlara daima uyunuz. 


İKAZ: HİÇ BİR VİDAYI SÖKMEYİN. GERİLİM VAR 


> 


Bilgisayarın Monitöre Bağlanması 


(Eğer CPC 6128'i MP2 güç kaynağı ile kullanıyorsanız bu bölümü atlayıp bir son- 
raki bölüme geçiniz.) 


I. Monitörün şehir şebeke ceryanına bağlı olmadığından emin olun. 


2. Monitörün önünden çıkan kablonun ucundaki büyük fişi (6-uçlu DIN), bilgisa- 
yarın arkasında, MONİTÖR yazılı sokete sokunuz. 


3. Monitörün önünden çıkan kablonun ucundaki küçük fişi (5 V DO), bilgisaya- 
rın arkasında, 5 V DC yazılı sokete sokunuz. 


4. Bilgisayarın arkasından çıkan kablonun ucundaki küçük fişi (12 VDC), moni- 
törün önündeki sokete sokunuz. i 


FRONT OF MONITOR 


REAR PANEL OF COMPUTER 


Bilgisayarı MP? Modülatör/Güçkaynağı 
Ünitesine Bağlama 


MP, halen kullanılmakta olduğunuz GT65 Yeşil monitörlü CPC 6128 bilgisa- 
yarın isteğe bağlı olarak alınabilecek ilave bir parçasıdır. MP2 sayesinde bilgisa- 
yarınızı, ev tipi renkli televizyon ile kullanabilir ve böylelikle CPC 6128 bilgisayarın 
bütün renk fonksiyonlarından faydalanabilirsiniz. 


MP2 cihazınızı koyacağınız yerin CPC 6128 bilgisayarının sağ yanı olmasını tavsi- 
ye ederiz. 


1. MP2 cihazının fişinin şehir şebeke prizine takılı olmamasına dikkat ediniz. 


2. MP2'den çıkan ve ucunda büyükçe bir (6-uçlu DIN) fişi olan kabloyu, bilgisa- 
yarın arka tarafında MONİTÖR diye belirtilmiş sokete sokunuz. 


3. MP2'den çıkan ve ucundan küçükçe bir (5 V DO) fişi olan kabloyu bilgisayarın 
arka tarafında 5 V DC diye belirtilmiş sokete sokunuz. 


4. MP2'den çıkan ve ucunda anten fişi olan kabloyu TW'nizdeki AERIAL veya 
ANTEN soketine sokunuz. 


5. Bilgisayarın arka tarafından çıkan ve ucunda küçükçe bir (12 V DC) fişi olan 
kabloyu MP2'nin arka tarafındaki sokete sokunuz. 


CPC 6128 ve GT65/CTM 644 sisteminin 
çalıştırılması 


Sistemi birbirine bağladıktan sonra fişi ceryana takın. Monitörün üstünde bulu- 
nan on-off düğmesine basın. Düğme içerideyken açık, dışarıdayken kapalı du- 
rumdadır. 


Bilgisayarınızın arkasında bulunan açık-kapalı düğmesini ON durumuna getirin. 


Bilgisayarınızın üzerindeki kırmızı lamba yanmalı ve aşağıdaki mesajı görmelisiniz. 


Amstrad 128K Microcomputer (v3) 


©1985 Amstrad Consumer Electronics ei“ 
and Locomotive Software Ltd. 


BASIC 1.1 


Ready 
B 


Gözlerinizin yorulmasını önlemek için monütörünüzde bulunan BRIGHTNESS 
(parlaklık) düğmesi ile oynayarak iyi bir resim alın. 

GT65 monütörü kullanıyorsanız kontrast ve düşey durdurma düğmeleri de ayar- 
lanmalıdır. 


Genelde kontrast düğmesi gözleri korumak amacı ile kısık seviyelere ayarlanmalıdır. 


CPC 6128 ve MP2 Modülatör/Güç Kaynağı 
Sisteminin Çalıştırılması 


Daha önce gösterilen şekilde bağlantıları yapılmış sistemin fişini şehir şebeke pri- 
zine sokunuz. 


Bilgisayarın sağ arkasındaki sürgülü anahtarı kullanarak bilgisayarı çalıştırınız. Tuş 
takımının üst ortasındaki kırmızı ON lambası yanacak ve televizyonunuzu aşağı- 
daki görüntüyü verene kadar ayarlayacaksınız. (Şayet TW'niz işaretli ayarlama ska- 
lasına sahipse yaklaşık olarak 36'ncı kanalda çıkacaktır.) 


Amstrad 128K Microcomputer (v3) 


©1985 Amstrad Consumer Electronics ri“ 
and Locomotive Software L . 


BASIC 1.1 
Ready 
u 


TV setinizi ekranda temiz bir görüntü elde edinceye kadar ayarladıktan sonra ya- 
zılar koyu mavi fon üzerinde altın/sarı renkte olacaktır. 

Eğer TW'niz döner anahtarlı program seçicisine sahipse yine yukarıda görülen en 
temiz görüntüyü alana kadar döndürünüz. (Burada da yine 36'ncı kanalda gözü- 
kecektir.) 


Diğer Bağlantılar 


Eğer siz aşağıda adları belirtilen diğer çevre elemanlarını bağlamak istiyorsanız de- 
tayları bu temel kursun ikinci kısmında bulabilirsiniz. 

Oyunçubuğu(ları) 

Kaset ünitesi 

Yazıcı 

İkinci disk sürücüsü 

Harici amplifikatör/Hoparlör 

Genişletici elemanlar 


Sonuç olarak bu kitapçığın başlangıcında ÖNEMLİ başlığında verilen 


MONTAJ BİLGİLERİ 1,2,4,5,6,7, 8 
ÇALIŞTIRMA BİLGİSİ 1 


bilgilerini gözden geçiriniz. 


Bölüm 2: Çevre Elemanlarının 
Bağlanması 


Bu kısımda size değişik çevre elemanlarının CPC 6128 sistemine nasıl bağlanaca- 
ğını izah edeceğiz. Bu cihazların nasıl kullanılacağı hakkındaki detaylı bilgiler bu 
kitapçığın uygun bölümlerinde bulunabilir. 


Oyunçubuğu 


AMSOFT oyunçubuğu JY2 modeli 6128 bilgisayarının oyunçubuğu kontrolu ve 
ateşi gerektiren oyun programları için alabileceğiniz ilave bir cihazdır. 


JY>'den çıkan kablonun ucundaki fişi bilgisayarın üzerinde bulunan ve JOYSTICK 
diye belirtilen sokete takınız. 6128 iki adet oyunçubuğu ile kullanılabilir. Bu şekil- 
de kullanılmak istendiği takdirde ikinci oyunçubuğu birinci oyunçubuğunun üze- 
rinde bulunan sokete bağlanmalıdır. 

AMSOFT oyunçubuğu bu bilgisayarla kullanılmaya müsaittir. 


Oyunçubuğu ile ilgili diğer bilgiler daha sonra verilecektir. 


Kaset Ünitesi 


Programlar disk yerine kasetden yüklenebilir veya saklanabilir. Yükleme ve kayıt 
emirleri daha ileride açıklanacaktır. 


6128 bilgisayarına kaset ünitenizi bağlamak için AMSOFT CLI kablosu (o veya 
eş standartta kaset-arakablosu gerekir. 


Kablonun uçundaki büyükçe (5 uçlu DIN) fişini bilgisayarın üzerindeki; TAPE yazan 
sokete sokunuz. Mavi kablonun ucundaki fişi, kaset ünitenizdeki REM veya RE- 
MOTE yazan sokete sokunuz. 


Kırmızı kablonun ucundaki fişi kaset ünitesinin MIC, COMPUTER IN veya INPUT 
yazan soketine sokunuz. 


Beyaz kablonun ucundaki fişi kaset ünitenizin EAR, COMPUTER OUT veya OUT- 
PUT yazan soketine sokunuz. 6128 bilgisayarı ile kaset ünitesi arasında başarılı 


veri transferi için kaset ünitesindeki LEVEL (seviye) veya VOLUME (ses) kont- 
rollarının iyi ayarlanması gerekmektedir. Şayet yüklediğiniz veya kaydettiğiniz prog- 
ramlar doğru ve tam olarak kayıt edilmemiş veya yüklenmemişse, değişik seviye 
kontrol pozisyonlarını deneyerek en müsait pozisyonu bulabilirsiniz. 


YAZICI 


6128 herhangi bir Centronics eşdeğeri paralel yazıcı ile kullanılabilir. Eğer AMS- 
TRAD DMPI kullanmak isterseniz sadece yazıcının bağlantı kablosunu kullan- 
manız yeterlidir. 


Şayet, herhangi bir Centronics eşdeğeri yazıcı kullanmak isterseniz o zaman AM- 
SOFT PLI yazıcı bağlantı kablosu gerekir. 


Kablonun ucundaki yassı edge-konnektörü bilgisayarın arkasındaki PRINTER yazılı 
sokete sokunuz. 


Kablonun diğer ucundaki Centronics sitilindeki fişi yazıcının arkasındaki sokete 
sokunuz. Eğer yazıcınızdaki sokette emniyet mandalları varsa bunları yazıcı fişi- 
nin kenarındaki ayaklara mandallamanız gerekmektedir. 


Yazıcı operasyonlarının detayları bu kitapçığın ileriki konularındaki bulunmakta- 
dır. 


İKİNCİ BİR DİSK SÜRÜCÜSÜ (AMSTRAD 
FDI) 


AMSTRAD FDI ikinci bir disk sürücüsü olarak sisteme ilave edilebilir. İki sürü- 
cülü sistemin CP/M kullanıcısı için avantajı ise programın bir diskette, bilgilerin 
ise diğer bir diskette saklanmasıdır. 


CP/M çalışması daima programın diskten yüklenmesini gerektirir. (Makinenin 
ROM'”'undaki BASIC'e giriş yoktur) RAM hafızasından daha geniş programlara 
izin veren çalışma tekniği (overlay tecnigue) muhtelif dosyaları kullanmasına mü- 
sade eden CP/M den sonra, gerçek sistem diski verilere az bir yer bırakacak şekil- 
de birçok program dosyası ihtiva edebilir. 


6128 sistem diskinin ulaşılmaz becerileri sayesinde siz bütün gerekli olan dosya ba- 
kım, kopya, silme vb. işlemleri tek bir disk sürücüsü ile yapabilirsiniz. Bununla 


beraber, ikinci bir sürücü elbette bu işlemlerin hızını arttıracak, kazaların faaliyet 
sahalarını azaltacaktır. 


Büyükçe bir kenar konnektörü (edge-konnektör) olan kablonun ucunu bilgisaya- 
rın arkasında DISC DRIVE 2 işaretli sokete sokunuz. 


Kablonun diğer ucundaki ufak fişi FDI disk sürücüsünün arkasındaki sokete 
sokunuz. 


UNUTMAYINIZ-İkinci disk sürücüsünü bağlarken veya sökerken her iki sürücü- 
den de disklerin çıkarılmış olması ve sistemin kapalı olması gerekmektedir. Şayet 
sistem çalışır haydeyken bağlantıları değiştirmeyi , bilgisayarın hafızasındaki prog- 
ramın bozulmasına benzetebilirsiniz. Bağlantıları karıştırmadan önce değerli prog- 
ramlarımızı koruyalım. 


FD 1 disk sürücüsü 6128'e bağlandığında önce FD I'in sürgülü anahtarını, (disk 
sürücüsünün arka panelindedir) sonra da 6128'in anahtarını açınız. FD I'in ön pa- 
nelindeki kırmızı ve yeşil lambalar yandığı zaman sistemimiz çalışmaya hazır du- 
rumdadır. 


2-sürücü operasyonunun detaylı bilgileri bu kitapçıkta daha sonraki bölümlerde 
verilecektir. 


Harici Amplifikatör/Hoparlör 


6128 stereo amplifikatöre ve hoparlöre bağlanabilir ve bilgisayarın 3 kanal kapa- 
sitesinden faydalanabilir. 


Stereo amplifikatörün giriş (input) kablosunun ucu, bilgisayara uyması için 3,5 
mm.lik jak fiş olmalıdır. Jak fişindeki bağlantılar şöyledir: 


bişi tepesi enli siber nai same yasi Bila leme Sol kanal 
Fiş'orta. halkası... 5:511v0 53586310186 0008 EEE SİA AYY eee Ös00ei ese Sağ kanal 
Fiş arka salli. ii Bile e DİBE İİİ KERİMİ İNİZ GEY İRİ Nötr 


6128 cihazının STEREO soketinde sabit bir sinyal voltaj çıkışı vardır ve siz ampli- 
fikatörünüzün kendi ses, denge ve ton kontrolleriyle istediğiniz ayarları yapabilir- 
siniz. 


Yüksek empedanslı kulaklıklar 6128 ile birlikte çalışabilir fakat ses bilgisayarın üze- 
rindeki VOLUME kontrolu tarafından ayarlanamaz. Düşük empedanslı kulaklık- 
lar, normal stereo sistemlerde kullanılanlar gibi direkt olarak bilgisayara girilerek 
çalışamazlar. Sesin istenilen çıkış kanalına yönlendirilmesi ile ilgili bilgiler ileride 
açıklanacaktır. 


Genişleme Araçları 


Seri interface, modem, ışıklı kalem, ROM vb. genişleme araçları 6128'in arkasın- 
daki EXPANSION yazılı sokete bağlanabilirler. 


AMSOFT konuşma sentezcisi/amplifikatörü olan SSA2 modeli (speech synthesi- 
ser/amplifier) de bu sokete bağlanabilir. 


EXPANSION soketine bağlantılar hakkındaki detaylar ““Sizin Bilginiz İçin” adı 
altındaki bölümde verilecektir. 


Sonuç olarak, bu kitapçığın başlangıcında ÖNEMLİ başlığında verilen: 


MONTAJ BİLGİLERİ 6,7 
ÇALIŞTIRMA BİLGİLERİ 4,8 


Bilgilerini gözden geçirip geçirmediğinize dikkat ediniz. 


Bölüm 3: Disk Hakkında 


AMSTRAD CPC 6128'de 3 inçlik compact floppy disk kullanılır. Biz, diske iyi 
ve doğru bir veri transferi için sadece AMSOFT CF2 compact floppy diskini kul- 
lanmanızı tavsiye ederiz. 


Diski Yerleştirme 


Diskin her iki tarafıda ayrı ayrı kullanılabilir. Disk yerleştirilirken yazılı (antetli) 
tarafı sürücünün dış tarafına gelecek şekilde ve kullanmayı düşündüğünüz tarafı 
yukarıya gelecek şekilde konulması gerekir. 


Yazmaya Karşı Koruma 


Boş diskin her iki tarafında, sol köşede bir okun işaret ettiği kapatılan delik göre- 
ceksiniz. Bu yazıma karşı koruma deliğidir. Bu delik, silmeye ve tekrar kaydetme- 
ye karşı koruma görevi yapar. 


Write Protect hole 


Bu delik kapalı iken, veriler bilgisayar tarafından diske yazılabilir. Fakat delik açık 
iken disk herhangi bir verinin üzerine yazılmasını önler, böylelikle değerli prog- 
ramlarınızın kazara silinmesi önlenmiş olur. Yazı koruma deliğinin açılması ve ka- 
panması aşağıda belirtildiği gibidir. 


Yazı koruma deliğinin açılması için, diskin sol köşesindeki küçük düğmeyi (sürgü- 
yü) kaydırmanız gerekir. 


Write Protect hole (OPEN) 


| --- 


Write e ON Write Protection OFF 


Yazı koruma deliğini kapamak için sürgüyü eski pozisyonuna getirmek yeterlidir. 
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Bazı compact floppy disk üreticileri ise, diskin sol köşesinde bir yuva içinde küçük 
bir plastik ayırıcı koymuşlardır. 


Lever 
Ca 3 m EE 
t 
Write Protect 
hole 
(CLOSED) 


Bu tür disklerin yazı koruyucu deliklerini açmak için ayırıcıyı diskin orta tarafına 


doğru kaydırmak gerekir. Bu işlem için tükenmez kalem ucu veya benzeri birşey 
kullanabilirsiniz. 


Slide Lever 
towards middle E 
of disc 


Write Protect 
hole 
(OPEN) 


Hangi metod ile olursa olsun, yazıma karşı koruma deliğinin açılması her şartta 
disk üzerine yazmayı önler. 


Önemli 


Daima ana CP/M sistem diskinin yazıma karşı koruma deliğinin açık olduğundan 
emin olunuz. 


Diskiniz İçerideyken 


Bilgisayarın disk sürücüsünün önünde kırmızı indikatör lambası ve EJECT buto- 
nu vardır. 


indicator mami Eject 
Lamp Button 


İndikatör Lambası 


Bu lamba verilerin diske yazıldığını veya diskden okunduğunu belirtir. 
Şayet ikinci disk sürücüsü bağlanmışsa, ikinci disk sürücüsünün kırmızı indikatör 


lambası sürekli yanacaktır. Bilgisayarla birlikte olan esas disk sürücüsü diske ya- 
zarken veya diskten okurken ikinci disk sürücüsünün indikatör lambası söner. 


Dışarı Atma (Eject) Butonu 


Bu butona basınca diskimizi disk sürücüden dışarıya alabiliriz. 
Sonuç olarak, bu kitapçığın başlangıcında ÖNEMLİ başlığında verilen 
ÇALIŞTIRMA BİLGİLERİ 1,3, 4, 5, 6 


Bilgilerini gözden geçirip geçirmediğinize dikkat ediniz. 


Bölüm 4: Başlarken 


Yazılım (software) yüklemeye ve programları diske kaydetmeye başlamadan önce 
bilgisayardaki bazı tuşları tanımak faydalı olacaktır. 


Bilgisayarı açıp, açılış mesajını ekranda gördükten sonra çeşitli tuşların neler yap- 
tığını görelim. 


Kursör tuşları (klavyenin sağ alt köşesinde) kursörün (ekrandaki ışıklı ka- 
re) ekrandaki yerini değiştirir. 


Kursör tuşlarına sırayla basınız ve kursörün ekrandaki hareketini izleyiniz. 


(RETURN tuşu bilgisayara yazdığınız bilgileri, bilgisayara girer. (işleme konul- 
masını sağlar) (RETURN) tuşuna basıldıktan sonra ekranda yeni bir satır başlar. 
Bilgisayara girmesini (işleme konulmasını) istediğiniz her bilginin sonunda |RE- 
TURN) tuşuna basmalısınız. 


Bundan sonra (RETURN) gördüğümüz zaman, her program satırından veya ko- 
mutundan sonra (RETURN tuşuna basmamız gerektiğini anlayacağız. 
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ENTER 


Normal şartlar altında bu tuş (RETURN) tuşuyla aynı işlemi yapar ve kullanılabi- 
lir. Bununla beraber nümerik tuş takımındaki fonksiyon tuşları gibi (ENTER) tu- 
şu diğer kullanımlar için yeniden tanımlanabilir. Bu işlem daha sonraki bölümlerde 
izah edilecektir. 


DEL 


Bu tuş ekranda kursörün solundaki gerekli olmayan karekteri (harf veya sayı) sil- 
mek için kullanılır. 


Sırasıyla abcd yazınız, d harfinin kursörün solunda kaldığını göreceksiniz. d harfini 
istemediğinize karar verdiğinizde (DELJ| tuşuna bir bir kez basın, d harfinin kay- 
bolduğunu göreceksiniz. Şayet (DEL| tuşuna basar ve parmağınızı çekmeden bas- 
mayı sürdürürseniz c, b, a harfleri sırasıyla kaybolacaktır. 


SHIFT 


Bilgisayarda iki tane |(SHIFTJ tuşu vardır. Bunlardan birine basar ve parmağınızı 
kaldırmadan diğer bir tuşa basarsanız, tuş bir harfi gösteriyorsa o harfin büyüğü; 
iki karakterli tuş ise üstteki karakter ekranda yazılacaktır. 


e tuşuna basınız, sonra |SHIFTJ tuşuna basıp tekrar e tuşuna basınız. Ekranda 
aşağıdaki mesaj görülür: 


ek 


Şimdi ara çubuğuna basın. Tuş takımının üzerindeki 2 rakamının bulunduğu tuşa 
önce yalnız, sonra |SHIFTJ ile basın. Ekranda aşağıdaki mesaj görülür: 


DAM 


Artık (SHIFT)J tuşu ve bir tuşa basılınca ne olduğunu biliyorsunuz. Alıştırma için 
önce yalnız, sonra (SHIFTJ ile tuşlara basarak denemeler yapınız. 


CAPS 
LOCK 


Bu (SHIFTJ'e benzeyen bir işlemdir, sadece bu tuşa bir defa basmak yeterlidir. 
Bu tuşa bir defa basıldıktan sonra yazacağınız her harf büyük harf olarak gözüke- 
cektir, ancak rakamlar değişmeyecektir. 


ICAPS LOCK)J tuşuna basınız ve abcdef123456 yazınız; 

Ekranda aşağıdaki mesaj görülecektir: 

ABCDEF123456 

Dikkat ederseniz harfler büyük harf, rakamlar ise aynen yazıldı. Şimdi isterseniz 
(CAPS LOCK) çalışırken (SHIFT)J tuşuna basıp aynı işlemi tekrarlarsak ekranda 
aşağıdaki mesaj görülür; 


ABCDEF !“ #$o& 


Eğer tekrar küçük harflere dönmek isterseniz (CAPS LOCK) tuşuna bir defa da- 
ha basınız. 


CONTROL EK 


Eğer bütün büyük harfleri ve tuşların üst kısımlarındaki sembolleri sürekli JSHIFTJ 
tuşuna basmaksızın kullanmak isterseniz (CONTROLJ| tuşuna basarken |(CAPS- 
LOCK)J tuşuna bir kez basınız. Bu işlem ““SHIFT LOCK” fonksiyonunu meyda- 
na getirir. Şimdi yukarıdaki işlemi tekrar yapalım; abcdef123456 yazınız; 


Ekranda aşağıdaki mesaj görülecektir: 
ABCDEF !“ 4$4& 
Şunuda hatırlatmak isteriz kilCONTROL)J| ve (CAPS LOCK )beraberce çalışır va- 


ziyette iken, rakamları yazmak mümkündür. Bunu yapabilmek için, tuş takımının 
sağındaki (FO'dan F9a kadar) rakam tuşlarına basmak yeterlidir. 
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ICONTROLJ tuşuna basarken (CAPS LOCKJ'a birkez basarsak tuşların alt kı- 
sımlarını kullanabiliriz. Küçük harf için tekrar (CAPS LOCK) tuşuna basınız. 


CIR 


Bu tuş kursörün içindeki harf veya rakamı silmek için kullanılır. ABCDEFGH ya- 
zınız. Kursör son harfin (H) sağında yer alacaktır. Şimdi sol kursör tuşuna dört 
defa basın. Kursör dört hane sola gidecek ve E harfinin üzerinde duracaktır. 


E harfinin kursörün içinde göründüğüne dikkat ediniz. (CLRJ tuşuna bir kez bası- 
nız, E harfi silinecektir ve FGH harfleri bir hane sola kayacaktır, F harfi kursörün 
içindedir. Şimdi |CLR|J tuşuna tekrar basarsanız, F harfi silinip yerine G harfi ge- 
lir. Bu işlemi tekrarlarsak G ve H harfleri de sırayla silinecektir. 


ESC 


Bu tuş bilgisayarın yapmakta olduğu işlemi durdurması için kullanılır. Bu tuşa bir 
kez basıldığında bilgisayar geçici olarak bekleme (pause) durumuna girer ve her 
hangibir tuşa basmakla tekrar eski işlemine devam eder. 


(ESC) tuşuna iki kez basarsanız bilgisayar yapmakta olduğu işlemi tamamen dur- 
durur ve sizden talimatlar almaya hazır duruma gelir. 


Önemli 


Ekranda bir satıra 40 karakter yazıldığı zaman ekranın sağ kenarına gelinmiş olur. 
Bundan sonra yazılacak karakter otomatik olarak bir sonraki satırın baş tarafına 
gider. Karakteri satır başına almak için (RETURN)J tuşuna basmamalısınız. Bilgi- 
sayar bu işi otomatik olarak yapmaktadır. 


Şayet (RETURN tuşuna basarsak bilgisayar hemen veya program çalışırken hata 
mesajı (Syntax error) verir. 


Yazılım Hatası (Syntax Error) 


Ekranda Syntax error mesajı görünürse, bilgisayar sizin verdiğiniz talimatı anla- 
mıyor demektir. 


Örneğin aşağıdaki talimatı yazınız. 
printt (RETURNJ 


Eranda aşağıdaki mesaj görülür: 
Syntax error 


Bu mesaj, bilgisayarın iki vli print sözcüğünün anlamını çıkaramadığı için ekrana 
gelmiştir. 


Eğer bir program satırında hata yaparsanız, örneğin; 


10 printt “abc” (RETURNJ| 


Syntax error mesajı bilgisayar programı çalıştırırken verilen konutu işleme sokun- 
caya kadar ekranda gözükmez. Şimdi; 


run (RETURNJ yazalım. Ekranda görülen mesaj şöyledir: 


Syntax error in 10 
10 Jiğğirintt “abc” 


Bu mesaj size hatanın hangi satırda olduğunu belirtir ve program satırı ile birlikte 
hatayı düzeltmek için kursörü de gösterir. 


Şimdi sağ kursör tuşuna (o kursör printt'teki t harfine gelinceye kadar basınız. Sonra 
da (CLRJ tuşuna basarak fazla tyi silin, (RETURNJ tuşuna basarak düzeltilmiş 
satırı bilgisayara girin ve run |RETURNJ yazın. Bilgisayar komutu kabul ederek 
ekrana; 


abc 
yazacaktır. 


Son olarak bu kitapçığın başlangıcından ÖNEMLİ başlığında verilen bilgileri tek- 
rar gözden geçiriniz. 


Montaj Bilgileri 4,5 
Çalıştırma Bilgileri | 


Bölüm 5: Yazılım ve Oyunları 
Yükleme 


Yazılım (software) diskinin yükleme hızının demostrasyonu için sistemi açalım ve 
CP/M diskimizin 4*ncü yüzü yukarı gelecek şekilde disk sürücüsüne yerleştirelim. 
Ekrana aşağıdaki emiri yazalım; 


run “rointime. dem” (RETURNJ 


Birkaç saniye sonra program hafızaya yüklenecektir. Kullandığınız monitörün ye- 
şil olup olmadığına göre ekrandaki soruya cevap verin. (Monitör yeşilse Y, renkli 
ise N) Ekranda “Roland In Time” oyununun sürekli demonstrasyonu görülecek- 
tir. Belki de dışarıya çıkıp oyunun bir kopyasını alabilirsiniz. 


Demonstrasyonu izlemeyi bitirdiğiniz zaman (CONTROLJ| ve (SHIFT) tuşlarına 
sırayla basınız, bu tuşları basılı tutarken (ESC)J tuşuna basınca programdan kur- 
tulabilirsiniz. Bu işlemi yapmakla bilgisayarı resetlemiş olursunuz ve isteğinize gö- 
re yeniden başlayabilirsiniz. (Bilgisayarı bu şekilde reset yaptıktan sonra diski, disk 
sürücüsünden çıkarmaya gerek yoktur.) 


Şayet program yüklenmemişse nerede yanlış yaptığımızı ekranda görebiliriz. 


Drive A: disc missing 
Retry, Ignore or Cancel? 


Bunun anlamı, diskinizi ya doğru olarak A sürücüsüne sokmadınız yada sizin iki 
sürücünüz olup diski B sürücüsüne soktunuz. 
ROINTIME.DEM not found 


Bunun anlamı, ya yanlış disk soktunuz (veya diskin yanlış yüzünü) yada ROINTI- 
ME.DEM adını tam ve doğru olarak yazmadınız. 


Bad command 
Bunun anlamı ROINTIME.DEM ismini, istenmeyen bir boşluk vererek veya nok- 
talamada hata yaparak eksik yazdınız. 


Type mismatch 

Anlamı, tırnak işaretini (**) unutmuşsunuz 
Syntax error 

Anlamı, run kelimesini yanlış kullandınız 


Drive A: read fail 
Retry, Ignore or Cancel? 
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Anlamı, bilgisayar diskinizdeki verileri okumayı becerememiş demektir. Doğru diski 
koyup koymadığınızı kontrol edin ve tekrar denemesi için R tuşuna basın. Bu me- 
saj, diskiniz sürücüde iken sistemi açıp kaparken diskin bozulması yüzünden veri- 
lir. 


Öncelikle bir diskin nasıl kopya edilebileceğini öğrenmeniz gerekir. Böylelikle de- 
gerli programlarınızın ve özellikle CP/M sistem diskinizin kopyalarını çıkarıp sak- 
layabilirsiniz. 


Amsoft Yazılımının ve Hoşgeldin Programı- 
nın Yüklenmesi 


Yazılım diskinizi sürücüye sokunuz ve şunu yazınız: 
run “disc” (RETURNJ 


Birkaç saniye sonra oyun yüklenip oynanmaya hazır hale gelecektir. 
CP/M sistem disk paketinden 4*ncü yüzü sürücüye sokup şunu yazınız: 
run “disc” 

Birkaç saniye sonra devamlı ““Welcome”? demonstrasyonu yüklenecektir. 


Sonuç olarak bu kitapçığın başında ÖNEMLİ başlığı altında verilen bilgileri göz- 
den geçiriniz. 


MONTAJ BİLGİLERİ 6 
ÇALIŞTIRMA BİLGİLERİ |, 5, 6 


Bölüm 6: Hesap Edelim 


Şimdilik bilgisayar ile ne yapıp ne yapmayacağımızı, bilgisayarı nasıl kuracağımı- 
zı ve çevre elemanlarını bağlamayı öğrendik. Şimdi ise bazı komutların ne işe ya- 
radığını öğreneceğiz. 


Bilgisayar, herkes gibi sadece kendi bildiği lisandaki komutları anlayabilir ve bu 
lisan BASIC'dir. (Beginners”All-purpose Symbolic Instruction Code) Basic'in söz- 
lüğünde kelimelere şifre anahtarı (keyword) denir ve her biri bilgisayarın belli bir 
işlevi yapmasını sağlar. Bütün lisanların gramer kuralları gibi BASIC'inde kural- 
ları vardır. Burada gramer söz dizimidir (Syntax) ve bilgisayar söz dizimi hatası 
(Syntax error) yaptığınızı size söyler. 
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AMSTRAD BASIC Komutlarının Tanıtımı 


“AMSTRAD CPC 6128 BASIC Komutlarının Komple Listesi”? başlıklı kısımda, 
AMSTRAD BASIC'de bulunan bütün komutların tanımları verilecektir. Bu bö- 
lümde biz çok kullanılan BASIC komutlarını tanıtacağız. 


CLS 


Ekran temizleme komutudur. Şimdi şu mesajı yazınız: 


cis (RETURNJ 


Büyük yada küçük harf kullanabilirsiniz. Bu komuttan sonra ekranın temizlendi- 
ğini ve sol üst köşede kursör ile Ready (hazır) sözcüğünün belirdiğini göreceksi- 
niz. 


PRINT 


Bu; program içinde karakter, kelime ve sayıların ekrana yazılmasını istediğiniz za- 
man kullanılır. Bilgisayara aşağıdaki komut satırını yazınız. 


print “merhaba” (RETURN 


Ekranda aşağıdaki mesaj görülür: 


merhaba 


Tırnak işaretleri **? bilgisayara neyin yazılması gerektiğini belirtmek için kullanı- 
lır. Merhaba sözcüğü, ekrandan |RETURNJ tuşuna basar basmaz gözükür. Şim- 
di; 


cls (RETURN)| 


yazın ve ekranı temizleyin. 


RUN 


Bir önceki örnekte tek satırlık bir komut gösterilmişti (RETURNJ tuşuna basılın- 
ca bu komut işleme sokulmuş ve işlem bitince unutulmuştu. Bilgisayarda, seri ko- 
mutlar belirlenmiş bir sırada saklanabilir. Buda program yazmakla mümkündür. 
Programa yazdığınız BASIC komutlar, daha önce gördüğünüz komutlara benzer 
fakat her komut satırının önüne bir satır numarası vermek gerekir. Eğer program- 
da birden fazla satır varsa, satır numaraları bilgisayara çalışma veya işlem sırasını 
belirtir. (RETURN) tuşuna basıldığında satır program çalışıncaya kadar belleğe 
alınır. Şimdi aşağıdaki satırı yazın: 
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10 print “merhaba” (RETURNJ 


(RETURNJ)| tuşuna basınca merhaba ekranda yazılmadı fakat bilgisayarın belleği- 
ne, bir satırlık program olarak alındı. Bu programın işleme konulması için run söz- 
cüğünün kullanılması gerekir. 


run (RETURN) 


Şimdi ekranda merhaba göreceksiniz. Şunu unutmayın ki sürekli print yazacak yerde 
? (soru işareti) de kullanabilirsiniz. örneğin; 


10 ? “merhaba” (RETURNJ 


LIST 


Program belleğe alındıktan sonra ne yazıldığını kontrol etmek için kullanılır. Bil- 
gisayara şu mesajı girersiniz: 


list (RETURNJ 


10 PRINT “merhaba” ekranda görülür. 
PRINT'i BASIC komutu olarak kabul ettiğini gösterir. 


Şimdi CLS (RETURNJ yazarak ekranı temizleyin. Ekran CLS (RETURNJ komu- 
tu ile temizlendiği halde programınız bilgisayarın belleğinden silinmemiştir. 


GOTO 


GOTO komutu bilgisayara bir satırdan bir başka satıra bazı satırları atlamak için 
veya bir çevrim oluşturmak için gitmesini sağlar. Denemek için şunu yazınız. 


19 PRINT “merhaba” (RETURNJ 
20 GOTO 14 (RETURNJ 


run (RETURN) 


Ekranda merhaba sözcüğünün solda altalta devamlı yazıldığını göreceksiniz. 
Bunun sebebi şudur. Programdaki 24. satır bilgisayara 10. satıra geçmesini 
söylüyor ve programın işlemesini burada başlatıyor. 


Bu programın işlemesini geçici olarak durdurmak için (ESC)J tuşuna bir kere bası- 
nız. Tekrar başlatmak için her hangi bir tuşa basınız. Programı başka komutlar 
ilave etmek için durdurmak isterseniz (ESCJ tuşuna iki defa basınız. 
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cis (RETURNJ 


Tuşuna basarak ekranı temizleyiniz. 


Merhaba sözcüğünü sürekli yan yana yazarak ekranı doldurmasını isterseniz bir 
önceki programı yeniden yazınız. Fakat tırnak işaretinden sonra noktalı virgül (;) 
koyunuz. 


19 PRINT “merhaba”; (RETURNJ 


19 GOTO 19 (RETURNJ 
run (RETURNJ 


Noktalı virgül bilgisayara daha sonra yazacağı karakterler gurubunu bir önceki- 
nin hemen yanına yazmasını belirtmiş oluyor. 


(ESCİ tuşuna iki defa basınız ve programı durdurunuz. Şimdi 10 uncu satırı tekrar 
yazınız. Fakat bu defa noktalı virgül yerine virgül (,) kullanın. 


19 PRINT “merhaba”, (RETURNJ 
run (RETURN) 


Görüyorsunuz ki virgül bilgisayara sonraki karakter gurubunu bir önceki karak- 
ter gurubundan 13 kolon sonraya koymasını belirtiyor. Bu özellik bilgileri ayrı sü- 
tunlarda yazabilmek açısından faydalıdır. Ancak dikkat edilecek husus şayet ilk 
guruptaki karakter sayısı 12'yi geçerse sonraki karakter gurubu bir 13 kolon daha 
araverilerek yazılır. Böylelikle kolonlar arasında daima bir ara mevcut olur. 
Bu 13 kolonluk şekil ZONE komutu kullanarak ayarlanabilir. Bu ileriki konular- 
da anlatılacaktır. 


INPUT 


Bu komut bilgisayara bir şeyin yazılmasını beklemesi gerektiğini belirtir. Örneğin 
bir sorunun cevabı olabilir. 


19 INPUT “kaç yaşındasınız”; yaş İRETURNJ 
20 PRINT “siz”; yaş; “yaşında göstermiyorsunuz” (RETURNJ 


run (RETURNJ 


Ekranda şunu göreceksiniz. 


Kaç yaşındasınız? 


Şimdi yaşınızı yazın veJRETURNJe basın. Eğer yaşınız 18 ise ekranda şunu göre- 
ceksiniz. 
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Siz 18 yaşında göstermiyorsunuz. 


Bu örnek INPUT komutunun ve sayısal değişkeninin kullanımını göstermektedir. 
Burada yaş sözcüğü değişken olarak kullanılmıştır. 


ICONTROLJ (SHIFTJ (ESCJtuşlarını kullanarak bilgisayarın belleğini temizleyin. 
Eğer girişin harfler veya harf ve rakam gurubundan oluşmasını isterseniz değiş- 
kenin sonuna ($) işareti koymanız gerekir. Bu tip değişkenlere “dizi değişkeni” de- 
nir. 


Şu programı yazınız. (20 nci satırda merhaba'nın a sından sonra ve benim'in 
b sinden önce birer boşluk veriniz) 


19 INPUT “İsminiz nedir”; isim$ (RETURNJ 
20 PRINT “merhaba ”; isim$; “ benim adım Ronald” (IRETURNJ 
run (RETURN) 


Ekranda şunu göreceksiniz. 

İsminiz nedir? 

İsminizi yazın ve (RETURN) tuşuna basın. Eğer isminiz Tezer ise ekranda şunu 
göreceksiniz. 


Merhaba Tezer benim adım Ronald 


Örnekte dizi değişkeni olarak isim$ kullanmıştık. Biz bunun yerine tek bir harfde 
kullanabiliriz. Örneğin a$. Şimdi yukarıdaki 2 örneği bir programda birleştirelim. 


5 CLS JRETURN)J 

19 INPUT “İsminiz nedir”; a$ (RETURNJ 

20 INPUT “Yaşınız kaç”;b (RETURN) 

30 PRINT “doğru söylüyorum ”; a$ “ hiç de”; b; “ göstermiyorsun” |(RETURNJ 
run |(RETURNJ 


Bu programda ad ve yaş olarak sırasıyla a$ ve b değişkenleri kullandık. Ekranda 
şunu göreceksiniz. 


İsminiz nedir? 


Şimdi adınızı yazınız (örneğin Tamer) ve (RETURNJ'e basın; size şu soru sorula- 
caktır. 


Yaşınız kaç? 


Yaşınızı yazınız (örneğin 27) ve (RETURNJ'e basınız. 
Ekranda şunu göreceksiniz. 


Doğru söylüyorum Tamer hiç de 27 göstermiyorsun. 


Program Düzeltme 


Bir programda satırlardan herhangi biri yanlış yazılmışsa ve syntax error veya bir 
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başka hata mesajı alınmışsa bu satırı tekrar yazmadan düzeltebiliriz. Bunu göster- 
mek için önceki programı yanlış yazalım. 


5 CLSS (RETURN)J 

19 INPUT “isminiz nedir”; a$ (RETURNJ 

20 INPUT “yaşınız kaç”; b (RETURNJ 

39 PRINT “doğru söylüyorum”; a$“iç de”; b;“ yaşında göstermiyorsunuz” 
(RETURNJ 


Yukarıdaki programda 3 hata yapılmıştır: 
5 nci satırda cls yerine clss yazılmış 


19 ncu satırda isminiz yerine ismini yazılmış 
30 ncu satırda söylüyorum kelimesi ile tırnak işareti arasında 1 boşluk bırakılmamış. 


Programı düzeltmek için 3 temel metod vardır. Birincisi tekrar yeni bir satır yaz- 


mak. Yeni satır yazarken yanlış yazılan satır ile aynı satır numarası taşıması gere- 
kir, aksi takdirde bellekte yeni bir program satırı olarak saklanır. 


İkincisi edit metodu (kürsör düzeltme). 


Son olarak kürsör kopya metodu 


Edit Metodu (kursör düzeltme) 


5 nci satırdaki hatayı düzeltmek için: 


edit 5 (RETURN) yazınız 


5 nci satır kursör clss sözcüğündeki c harfinin üzerinde olarak 30 ncu satırın altın- 
da gözükür. 


clss sözcüğündeki fazla s harfini yok etmek için kursör sağ tuşuna, kur- 
sör en sondaki fazla s harfinin üzerine gelinceye kadar basınız. Sonra |(CLRJ 
tuşuna basın. s harfinin silindiğini göreceksiniz. 


Şimdi (RETURNJ 'e basın ve böylelikle 5'nci satır bellekte düzeltilmiş olur. 
Bilgisayara aşağıdaki komutu girin: 


list (RETURNJ 


5'nci satırın düzeltilmiş olduğunu görün. 
Kursör düzeltme metodunu kullanma amacı ile aynı amaca sahip olan AUTO ko- 
mutu, ileride açıklanacaktır. 
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Kopya Kürsörü Metodu 


Kopya kürsörü (ekranda görülene ek olarak), |SHIFTJ basılı iken kürsör tuşların- 
dan birine basınca meydana çıkan bir kürsördür. Bu yolla ana kürsörden ayrılır 
ve ekranda bağımsız olarak hareket ettirilebilir. 


10 ve 30 uncu satırlardaki yanlışları düzeltmek için, |(SHIFTJ tuşunu basılı tutun 
ve kopya kürsörü 10 numaralı satırın başına gelinceye kadar kürsör yukarı o tu- 
şuna basın. Ana kürsörün hareket etmediğini ve şimdi ekranda iki kürsörün oldu- 
gunu göreceksiniz. Şimdi kopya kürsörü “you? ve “name? arasındaki boşluğa gelene 
dek (COPY P'ye basın. 10 numaralı satırın en alt satıra yeniden yazıldığını ve ana 
kürsörün, kopya kürsörü ile aynı yerde durduğunu göreceksiniz. Şimdi “r” harfini 
yazın. Bu sadece alttaki satırda görülecek. 


Ana kürsör hareket etti fakat kopya kürsörü olduğu yerde kaldı. Şimdi 18. satırın 
tamamı kopya edilene kadar (COPYP'ye basın. (RETURNP'e basın ve bu yeni 10. 
satır hafızaya alınsın. Kopya kürsörü kaybolur ve ana kürsör yeni 10. satırın al- 
tında belirir. İkinci yanlışı düzeltmek için, (SHIFTP'i basılı tutun ve kürsör yukarı 
tuşuna Oo basarak kopya kürsörünü 34. satırın bazına getirin. 


(COPYJ tuşuna, kopya kürsörü “say” dan sonraki tırnak işaretinin üzerine gelin- 
ceye kadar basın. Şimdi bir kere boşluk tuşuna basın. Alttaki satıra bir boşluk ya- 


zılacak. 30. satırın tamamı kopyalanana kadar |COPYP'yi basılı tutun, sonra 
IRETURNP'a basın. 


Şimdi hafızada programın düzeltilip düzeltilmediğini kontrol etmek için liste ala- 
bilirsiniz. 


List (RETURNJ 
yazın. 


NOT: (Düzeltme esnasında) kürsörü hızlı hareket ettirmek için (CONTROLJ tu- 
şuna basılı tutun ve sol veya sağ kürsör tuşuna bir kez basın. 


Şimdi (CONTROLJ (SHIFT)J ve (ESC) tuşlarına basarak bilgisayarı sıfırlayın. 


IF 


IF ve THEN komutları bilgisayara, verilen bir koşulu denemesini ve sonuca göre 
hareket etmesini bildirir. Örneğin şu komutta: 
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<———————————-- Ah 


Örnek: 


if 14 12 then print “doğru” (RETURNJ 
bilgisayar belirlenen şartı kontrol eder ve buna göre işleme geçer. 


ELSE komutu da IF THEN komutu ile kullanılarak, kontrol edilen şart yanlış ise 
bilgisayarın yapacağı işlemi belirler. Örneğin; 


if 141-0 then print “doğru” else print “yanlış” (RETURNJ| 
Şimdi bir önceki programı if ve then kullanarak yazalım. 


Aşağıdakileri yazınız. Dikkat ederseniz iki sembol daha ilave ettik. < daha küçük 
demektir (M tuşunun yanında), > daha büyük demektir ( ? tuşunun yanında) 


5 cis (RETURNJ 

19 input “isminiz nedir”; a$ (RETURNJ 

20 input “yaşınız kaç”; yaş (RETURNJ 

30 if yaş < 13 then 60 (RETURNJ 

40 if yaş < 20 then 70(JRETURNJ 

50 if yaş > 20 then 89/JRETURN)J 

60 print a$; “sen”; yaş; “yaşında olduğuna göre henüz küçük sayılırsın”:end 
(RETURNJ 

70 print a$; “sen”; yaş; “yaşındasın oldukça büyümüşsün”:end (RETURNJ 

80 print a$; “sen”; yaş; “yaşında olduğuna göre artık çocuk değilsin” (RETURN 


Programın doğru olup olmadığını kontrol etmek için, 
list (RETURN) 
yazınız. 


run (RETURN) 


yazarsanız, bilgisayar size soruları soracaktır. Sorduğu soruları cevaplayın sonu- 
cu izleyiniz. 


IF ve THEN komutlarının program içindeki etkilerini gördünüz. Aynı zamanda 
60 ve 70'nci satırların sonuna bir de END sözcüğü ekledik. Eğer 60'ncı sa- 
tırda bu komutu kullanmasaydık program çalışmaya devam eder, 70 ve 
80'nci satırları uygulamaya geçerdi. 


Aynı şekilde, şayet-70 "nci satırın sonunda END olmasaydı program de- 
vam eder ve 80'nci satırı işleme sokardı. İki nokta üstüste (:) bir önceki ko- 
mutu bir sonrakinden ayırmak için kullanılır. Böylece bir program satırına 


——— Nİ >>>>İ>m>mMm'mlmldldlddmm—mm—<<< rr 
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birden fazla komut yazılabilir. 5'nci satırı program tm irk önce ekranı 
temizlemek için kullandık. 


Bilgisayarı (OONTROLJ (SHIFTJ ve (ESC) tuşlarına basarak resetleyiniz. 


For ve Next 


FOR ve NEXT komutları bir operasyonun muhtelif defalar çalışması için kullanı- 
lır. Bu operasyondaki komutlar FOR ve NEXT çevrimiyle sınırlanmıştır. Aşağı- 
daki programı bilgisayara yazınız. 


5 cis |(RETURNJ 
19 fora—1 to 19 (RETURN)J 


20 print “operasyon numarası”;a (RETURNJ 
30 next a (RETURN) 
run (RETURNJ 


20 satırdaki işlem, 10'ncu satırdaki FOR komutunun belirttiği gibi 10 defa 
yapılacaktır. Değişken a değeri her seferinde 1 artacaktır. 


STEP sözcüğü FOR NEXT komutunda değişkenin her işlemde ne kadar ar- 
tacağını belirtmek için kullanılır. Örneğin 19'ncu satırda şu değişikliği ya- 
palım: 

19 fora 1900 to 0 step-10 (RETURNJ 

run (RETURN| 


REM 


REM bir nevi hatırlatmadır. Komut, bilgisayara kendisini takip eden satırdaki her 
şeyi yok saymasını, işleme almamasını ikaz eder. Siz bu komutu, bir programın 
adını, değişkenlerin ne için kullanıldığını ve bunun gibi program takibinde size ko- 
laylık sağlayacak her türlü hatırlatmaları eklemek için kullanabilirsiniz. 


19 REM programın ilk bölümü |RETURNJ 
20 L —5: REM yaşayanların sayısı (RETURNJ 


Tekli tırnak işareti () (SHIFTJ tuşuna basarken 7 tuşuna basınca yazılır) REM 
yerine kullanılabilir. 


19 ' programın ilk bölümü (RETURNJ 
20 L—5: ' yaşayanların sayısı (RETURNJ 


GOSUB 


Program içinde bir dizi komut muhtelif yerlerde çok sık kullanılıyorsa bu komut- 
ları bir altprogram (subroutine) şeklinde yazabilir vede GOSUB komutu ile çağı- 
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rabilirsiniz. GOSUB komutunu satır numarası izler. GOSUB-işleminin sonu 
RETURN komutu ile sonuçlanır. Bu anda bilgisayar daha önce itaat ettiği GO- 
SUB komutunu takip eden satıra geri döner. 


(Bundan sonraki iki program ekranda kelimeleri yazmaktan başka bir şey yapmaz. 
Burada sırf programın tekrarlı işleri yapması gösterilmiştir.) 


19 MODE 2 |(RETURN)J 

20 PRINT “Ali babanın bir çiftliği var” (RETURNJ 
30 PRINT “Çiftliğinde kedileri var” (RETURNJ 

49 PRINT “Miyav miyav diye bağırır” (RETURNJ 
50 PRINT “Çiftliğinde Ali babanın” (RETURNJ 
60 PRINT “Ali babanın bir çiftliği var” (RETURNJ 
70 PRINT “Çiftliğinde köpekleri var” (RETURNJ 
80 PRINT “Hav hav diye bağırır” (RETURNJ 

90 PRINT “Çiftliğinde Ali babanın” (RETURNJ 
run (RETURNJ 


Dikkat ederseniz programda bazı satırları tekrar etmek zorunda kaldık. Bu tekrar 
edilen satırları altprograma koyup sonunada RETURN komutunu ilave edeceğiz. 
Altprogramlarıda GOSUB 150 ve GOSUB 170 ile çağıracağız. Şimdi programı şöyle 
yazalım: 


19 MODE 2 (RETURNJ 

20 GOSUB 150 (RETURNJ 

30 PRINT “Çiftliğinde kedileri var” (RETURN) 
40 PRINT “Miyav miyav diye bağırır” (RETURNJ 
50 GOSUB 170 (RETURNJ 

60 GOSUB 154 (RETURNJ 

70 PRINT “Çiftliğinde köpekleri var” (RETURNJ 
80 PRINT “Hav hav diye bağırır” (RETURN) 

99 GOSUB 164 (RETURNJ 

100 END (RETURNJ 

150 PRINT “Ali babanın bir çiftliği var” (RETURNJ 
160 RETURN (RETURNJ 

170 PRINT “Çiftliğinde Ali babanın” (RETURNJ 
180 RETURN (RETURNJ 

run (RETURNJ 


İyi tasarlanmış altprogramlar bilgi işlemin önemli kısımlarından biridir. Bu alt- 
programlar, programların yapısını sağlamlaştırırlar ve iyi programlama alışkanlı- 
ğı kazandırırlar. 


Her zaman aklımızda tutacağımız bir konuda, mutlaka alt programın belirli bir 
noktasına atlamamız gerekmez. (örneğin başlangıcına) bir altprogram, 500. satır 
ile 800. satır arasında yer alabilir ve biz GOSUB 500, GOSUB 640 veya GOSUB 
790 diye çağırabiliriz. 
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Yukarıdaki programda 100. satıra END komutunu koyduk. Bu konutu koyma- 
saydık proram 90. satırdan sonra devam edecek ve GOSUB ile çağrılmadıktan sonra 
gerekmeyen 150. satır işleme konulacaktı. 


Basit Aritmetik 


Bilgisayarınızı rahatlıkla hesap makinesi olarak da kullanabilirsiniz. 


Bu işlemi daha iyi anlamak için aşağıdaki örnekleri yapınız. Bu örneklerde print 
yerine ? işaretini kullanacağız. Soruların cevapları (RETURNJ tuşuna basar bas- 
maz ekrana yazılır. 


TOPLAMA 


(artı işareti için |(SHIFT)J ve ; tuşlarını kullanın) 


23-43 (RETURN) 
6 


(2 işaretini kullanmadığımıza dikkat ediniz) 


? 844 (RETURN) 
12 


ÇIKARTMA 


(ISHIFTPsiz işaretini kullanın) 


7 4-3 (RETURNJ 
4 


7? 8-4 (RETURN! 
4 


ÇARPMA 


(ISHIFTJ ve : tuşlarını kullanın) 


7 3X3JRETURNJ 
9 


7 8X4 (RETURNİ 
32 


BÖLME 


(ISHIFTJ siz ? işaretini (/) için kullanınız) 


31 


? 3I3 (RETURN) 
1 


? 8/4 (RETURNJ 
2 


TAMSAYI BÖLMESİ 


(Kalansız bir bölme için (NX ) işaretini kullanın) 


? 10X6JRETURNJ 
1 


? 20N3)JRETURNJ 
6 


MODÜLÜS 


(Tamsayı bölmesinden sonra kalan kısım için MOD kullanın) 


? 10 MOD 4 (RETURNJ 
2 


? 9 MOD 3 (RETURN) 
0) 


KAREKÖK 


Bir sayının kare kökünü almak için sgr ( ) kullanın ve parantezin içine kare kö- 
künü alacağınız sayıyı yazın. 


? sar (16) (RETURNJ (bunun anlamı 116'dır) 
4 


? sar (100) (RETURNJ 

10 
ÜS ALMA İŞLEMİ 
(SHIFTY'siz £ tuşunu kullanın) 
23 173 (RETURNJ (3 demektir) 


?8 İ4JRETURN)| (8* demektir) 
4096 


KÜPKÖK 


Küpkök işlemi üs alma örneğinde kullanılan metoda benzer. 
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27'nin küpkökünü bulmak için 


227 1 (113) IRETURNJ ( V27 demektir) 


129*in küpkökünü bulmak için 


? 125 | (1/3) (RETURN) 


Karışık Hesaplar 
Ek) 


Bilgisayarla karışık hesaplar yapmak mümkündür. Fakat bu işlemlerin bir öncelik 
sırası vardır. 


İlk öncelik sırası çarpma ve bölmeye, sonra toplama ve çıkartmaya verilir. Bu ön- 
celikler sadece dört işlem hesaplarında uygulanır. 


Yapılacak hesap aşağıdakigibi ise; 
347-2X714 
Siz şöyle düşünebilirsiniz 


347-2X7/4 
—-8Xx7/4 
56/4 

-l4 


Fakat gerçekte ise şöyle hesaplanır 
347-2X7/4 

—-347-14/4 

—347-3.5 

—10-3.5 

-6.5 


Bu hesabı ispat için örneği tekrar yazınız. 


?2347-2X 714 (RETURN) 
6.5 


Siz parantezler ilave ederek bilgisayarın işlem yapış yolunu değiştirebilirsiniz. Bil- 
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gisayar parantezin dışında kalan çarpma, bölme işlemlerinden önce parantezin için- 
deki işlemlere öncelik verecektir. 


?(347-2)Xx7/4 (RETURN) 
14 


Bütün aritmetik işlemlerdeki öncelik sırası şöyledir: 


l üs alma 
MOD Modülüs 
- Rakamın negatif işareti 
X vel Çarpma ve bölme 
N Tamsayı bölmesi 
* ve - Toplama ve çıkartma 


İleri İşlemler 


Eğer hesaplarınızda çok büyük yada çok küçük sayılar kullanmak istiyorsanız ba- 
zen matematiksel özel semboller kullanmak yararlıdır. E harfi 10'un katı olan ra- 
kamların üssü için kullanılır. Burada küçük e veya büyük E kullanabilirsiniz. 

Örneğin 300 ile 3 x 10? aynı sayıyı gösterir. Bununla birimsel gösterimi ise 3 E 


2>'dir. Aynı şekide 0.03 ile 3 x 10? aynı sayıyı gösterir ve bunun bilimsel gösterimi 
ise 3 E -2'dir. Şimdi aşağıdaki örnekleri deneyiniz. 


? 30X10 (RETURN) 
300 


Bu işlemi şöyle de yazabilirsiniz: 


?3E1 X 1E1 (RETURN) 
300 


? 3000 x 1000 (RETURNJ veya ? 1E3  1E3(RETURNJ 
3000000 


? 3000 X 0.001 JRETURNJ| veya ?3E3 $ 1E-3/RETURNJ 
3 
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Bölüm 7: Kaydetme 


Şimdi siz bir programı bilgisayardan diske kaydedip saklamayı ve diskden bilgisa- 
yara geri yüklemeyi öğreneceksiniz. 


Siz kasete program kaydetmeyi ve kasetteki, kaydedilmiş programları bilgisayara 
yüklemeyi biliyor olsanız dahi diskdeki program dosyalarıyla ilgili bazı önemli bil- 
gileri öğrenmeniz gerekmektedir. 


Kaset ile disk arasındaki en önemli fark şudur. Boş bir diskin, kasette olduğu gibi 
kutusundan çıkartılıp üzerine kayıt yapılamamasıdır. Yeni bir disk önce format- 
lanmalıdır. 


Diğer bir fark ise disk dosyalarındaki doğru isimlemenin (naming) önemidir. Ka- 
set dosya isimleri genel olarak çok gevşek standartlar ihtave ederler. (uzunluk ola- 
rak değişiklik arzederler) Bu işlem disk de böyle değildir. Disk dosya adları kesinlikle 
CP/M standartlarında olmalıdır. Bu konu daha sonra izah edilecektir. 


KULLANIM İÇİN DİSK FORMAT- 
LANMASI 


Yeni bir boş bir diske herhangi bir veri yazmadan önce diskin kendisinin format- 
lanması gerekir. Formatlama; bilgiler yerleştirilmeden önce diskin üzerine birseri 
raflar, ayırıcılar yapmaya benzer. Diğer bir deyişle verilerin konup alınacağı yere 
bir çerçeve yerleştirmeye benzer. Formatlama, diski 360 kesin ayrı alana böler. 


Track 39 


Dış kap 


Track0 
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Diskde dışarıdan (kanal 0) içeriye (kanal 39) doğru 40 kanal vardır ve diskin çev- 
resi 9 daire dilimine bölünmüştür. 


Her daire dilimindeki kanalda 512 bayt'lık veri saklanabilir. Böylelikle diskin her 
bir yüzünde 180 KBayt”lık toplam kullanılabilir yer vardır. 


Ana CP/M Sistem Disk Paketinin Kulla- 
nılması 


Programlarınızın üzerine yazılacağı, üzerinden okunacağı, yeni ve boş bir diskin 
formatlanarak hazırlanması için ana CP/M sistem disk paketinizin 1. yüzünü kul- 
lanmanız gerekir. (Bu diskler bilgisayar ile verilmiştir) 


Sistemi açınız ve sistem disk paketinizin 1. yüzünü sürücüye sokunuz. 


Eğer 2 disk sürücüsüyle çalışıyorsanız sistem diskinin 1. yüzünü daima bilgisayarı- 
nızla birlikte olan (A sürücüsü) disk sürücüsüne giriniz. 


Şimdi aşağıdaki komutu yazınız: 


Icpm (RETURN) 


(Çubuk sembolünü |(SHIFTJ tuşuna basarken © tuşuna basarak yazabilirsiniz) 


Birkaç saniye sonra ekranın yukarısında şu mesajı görürsünüz. 
CP/M Plus Amstrad Comsumer Electronics plc 


Bu mesaj, bilgisayarın CP/M artı çalışma sisteminin kontrolu altında olduğunu 
belirtir. Aynı zamanda ekranda kursör ile birlikte A > harfide göreceksiniz. Bu 
“prompt”'dur (Ready gibi) ve bilgisayarın sizin komutlarınızı beklediğinizi belirtir. 


CP/M ile çalışırken BASIC komutlarını bilgisayara veremezsiniz çünkü anlaşıl- 
maz. Bilgisayara şu emri giriniz: 


cis (RETURNJ 


Bilgisayar bu komutu soru işareti ile birlikte size geri gönderip, komutun anlaşıl- 
madığını belirtir. 


CLS ? 
Şimdi bazı CP/M komutlarını inceleyelim. Bilgisayara şu komutu girelim. 


dir (RETURNJ 
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Ekranda CP/M”in rehberini (DIRectory) ve kullanım komutlarını görürsünüz ki 
bunlardan biri de DISCKIT3'dür. 


disckit3 (RETURNJ 


Birkaç saniye sonra ekranın üst tarafında DISC KIT açılış mesajını görürsünüz. 
Bunu şu mesaj takip eder. 


One drive found 

Bu mesaj sizin DISC KIT kullanım programını çalıştırdığınızı söyler ve bilgisayar 
bir disk sürücüsüyle çalıştığınızı kontrol etmiştir. Eğer ilave bir disk sürücüsü sis- 
temi varsa, mesaj şöyle çıkacaktır. 

Two drives found 

Ekranın altında ise şunu görürsünüz. 


Copy 


Format 


Bu şekil DISC KIT seçenek (menü) tablosudur. Kutudaki numaralar tuş takımı- 
nın sağındaki fonksiyon tuşlarına tekabül eder. (f0, f1, f4, f7) Bunlardan birine 
basarak listeden istediğinizi seçebilirsiniz. 


Fonksiyon tuşlarından a bastığınızı kabul edelim. Bu anda bilgisayar DISC KIT 
programından çıkar CP/M'e geri döner. 


Şimdi bir diski formatlayalım. Bunun için fonksiyon tuşlarından 4'e basalım. 


DİKKAT 
DAHA ÖNCE KAYDEDİLMİŞ DİSKİ FORMATLAMAK 


HERŞEYİ SİLER 
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Şimdi size seçiminiz için değişik formatlar sunan yeni seçenek tablosu görüyorsu- 

nuz, şöyleki; 
System format 
Data format 
Vendor format 


Exit menu 


Daha önce olduğu gibi fonksiyon tuşlarından birine basınız (f3, f6, f9) ve istediği- 
niz tip formatı seçiniz. Bütün bu farklı formatlar daha sonra açıklanacaktır fakat 
şimdilik Data formatı (veri formatı) 6 nolu tuşa basarak seçiniz. 


Şunu unutmayınız ki (*) tuşuna (f3, f6, f9'un altında) basınca program format 
konumundan çıkıp ana DISC KIT seçenek tablosuna geri döner. 


6 nolu fonkisyon tusuna basıldığını ve bilgisayarınıza ilave disk sürücüsü bağlan- 
mamış olduğunu kabul edersek şu mesajı görürsünüz. 


Format as Data 


Any other key to exit menu 


Bu anda, ana CP/M sistem diskini çıkartınız ve formatlamak istediğiniz diski for- 
matlanacak tarafı üste gelecek şekilde sürücüye sokunuz. 


Şimdi Y tuşuna basınız.( Y evet anlamına gelmektedir) Disk kanal 9'dan kanal 39'a 
kadar formatlanır ve ekranın sol üstünde kanal numarası belirtilir. 


Yazı koruma deliği açık olan disket formatlanamaz. Şayet bu şekilde formatla- 
mak isterseniz şu mesajı ekranda görürsünüz. 


Disc write-protected 
Insert disc to format 
R-etry or C-ancel 


İptal için C yazıp diski çıkartabilirsiniz ve yazı koruma deliği kapalı olan format- 
lanacak doğru diski formatlayabilirsiniz. 


Saklamak istediğiniz disklerinizin ve ana CP/M diskinizin üzerindeki yazı koru- 
ma deliğini hiçbir zaman kapatmayınız. 


Formatlama bittiğinde devam için herhangi bir tuşa basınız. 
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Böyle yaptıktan sonra diğer diski formatlamak için diski sokunuz ve Y tuşuna ba- 
sınız. Bu işlem sizin ihtiyacınız olan tüm formatlanacak diskler için tekrarlanabi- 
lir. 

Diskin formatlanması bittiği zaman herhangi bir tuşa (Y'den farklı) basınız ve tekrar 
DISC KIT seçenek tablosuna dönünüz. 


Seçenek tablosundaki Copy ve Verify daha sonra izah edilecektir. Bilgisayarı 
ICONTROLJ (SHIFTJ ve JESCJ kullanarak resetleyiniz. 


CP/M sistem diskinin esas kopyasını iyi ve emniyetli bir yerde saklayınız. Daha 
sonraki konularda size sistem diskinin çalışan kopyalarının nasıl yapılacağı göste- 
rilecektir. 


2 Sürücü Sisteminde Formatlama 


Yukarıdaki komut ve bilgileri uygulayarak ana DISC KIT tablosundan Format kıs- 
mını f4 tuşuna basarak seçiniz ve sonra f6 nolu tuşa basarak Data format kısmını 
seçiniz. 


Bu anda size, formatlamak için sürücü seçimini sunan üçüncü bir menü çıkacak- 
tır. 


Format A: 8 
Format B: 5 
Exit Menu 2 


Format B: seçeneği (f5 tuşu) sistem diskini (1. yüzü) sürücü A da bırakıp, format- 
lanacak diski B sürücüsüne yerleştirme imkanı sağlar. 


Format B: yi seçtikten sonra siz, formatlama işlemi için Y tuşuna basabilirsiniz 
veya DISC KIT seçenek tablosuna çıkmak için herhangi bir tuşa basabilirsiniz. 


Eğer Format A: seçilmişse (f8 tuşu) sistem diskinizi A sürücüsünden çıkarmayı 
unutmayınız ve yerine formatlanacak diski yerleştiriniz. 


Şunu hiç unutmayın: ANA CP/M SİSTEM DİSKİNİN ÜSTÜNE YAZMAYA KALKIŞ- 
MAYIN 


Şimdi elimizde formatlanmış boş bir (iki) disk vardır. Artık BASIC programları dis- 
ke yükleyip tekrar çağırabiliriz. 
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Programın Disk Üzerinde Hafızaya Alınması 


Bilgisayara yazılmış programı, disk üzerinde saklamak için şunu yazınız. 


save “dosya ismi” (RETURNJ 


Programın isimlendirilmesi mecburidir. 


Diskdeki bir dosya adı iki kısımdan meydana gelmiştir. Birinci kısım mecburidir 
ve 8 karakterden uzun olamaz. Burada harfler ve rakamlar kullanılır fakat ara ve 
noktalama işaretleri kullanılmaz. Bu birinci alan, programın adını ihtiva eder. 


İkinci alan ise isteğe bağlıdır. Burada 3 karakter kullanabilirsiniz, fakat yine ara 
ve noktalama işaretleri kullanılamaz. İki alan birbirinden (0) ile ayrılırlar. 


Eğer ikinci alanı belirtmiyorsanız, sistem otomatik olarak kendisi başlık koyar. 
Örneğin BASIC dosyaları için. BAS veya binary (makine kodu) için .BIN gibi. 


Diskde saklamaya bir örnek olarak kısa bir program yazın ve formatlanmış diski 
yerleştirip, şunu yazınız. 


save “örnek” |(RETURNJ 


Birkaç saniye sonra Ready hatırlatması ekranda belirir ve program diske kayıt edil- 
miş olur. (Eğer bu işlem olmazsa ekranda hata mesajı olup olmadığını kontrol ediniz. 
Hata mesajı var ise; diskinizi doğru sürücüye girmediniz veya yazı koruma deliği- 
ni kapatmadınız yada yanlış komut verdiniz demektir.) 


Katalog 
Programı sakladıktan sonra, şunu yazınız: 
cat (RETURNJ 


Ekranda şunları göreceksiniz. 


Drive A: user 0 


ÖRNEK.BAS 1K 
177 K free 


Dosya adı ve belirlenmiş veya alınmış ikinci alan ve dosya uzunluğu (en yakın 
büyük Kbayt) ekranda görünür, diskdeki serbest alan miktarıda ekrana gelir. 
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Diskden Yükleme  * 


Şu komutu kullanmakla program diskden yüklenir ve çalışmaya başlar: 


load “dosya ismi” (RETURNJ 
run |(RETURNJ 


veya run direkt olarak kullanılabilir. 
run “dosya ismi” (RETURNJ 


Kilitli programlar yalnız run ile çalışırlar. 


lIA ve IB 


Eğer ilave bir disk sürücüsü ile çalışıyorsanız hangi sürücünün (A vey B) çalışması 
gerektiğini şu komutu yazarak sağlayabiliriz. 


la (RETURNJ 
veya 


Ib (RETURNJ 


Bunlar SAVE, CAT veya LOAD komutlarından önce yazılır. 


Diskden Diske Program Kopyası 


Bu bölümde, şu ana kadar öğrendiğimiz komutlarla, diskden diske program kop- 
yasını; orjinal kaynak diskinden programı bilgisayara yükleyip sonra kaynak dis- 
kini çıkarıp yeni diski girerek programı ona yükleme şeklinde yapabiliriz. 


Programı iki disk sürücülü sistemde kopya için kaynak diskimizi B sürücüsüne gi- 
reriz. Kaydedilecek diskimizi de A sürücüsüne gireriz. Programı kopya için şunu 
yazınız. 


Ib (RETURN|J 
load “dosya ismi” (RETURNJ 
la (RETURN) 
save “dosya ismi” (RETURNJ 


CPC 6128'de normal BASIC dosya saklanmasına ilave olarak çok özel maksatlar 
için kullanılan üç metot daha vardır. 
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ASCII Dosyaları , 


save “dosya ismi”, a (RETURNJ 


Sondaki ,a eki; bilgisayara programın veya datanın ASCII metin dosyası formun- 
da saklanacağını bildirir. Bu metotla saklanan veriler kelime işlemciler (word pro- 
cessors) ve diğer uygulama programları tarafından meydana getirilen dosyalarda 
kullanılır. Bunun kullanılması ileride aplikasyonlar ele alındığında izah edilecek- 
tır. 


Korunan Dosyalar 
save “dosya ismi”, p (RETURN 


Son (,p) ekini ilave etmek bilgisayara verileri o şekilde koru ki,program yüklen- 
dikten sonra LIST edilmesin veya çalışırken ancak (ESC)J tuşunu kullanarak dura- 
bilsin anlamına gelir. 


Bu şekilde saklanmış programlar direkt olarak şu şekilde çalıştırılabilirler. 
run “dosya ismi” (RETURNJ 

veya 

chain “dosya ismi” (RETURNJ 


Eğer programı değiştirmek veya düzeltmek isterseniz, kendinize korunmamış bir 
kopya çıkartmalısınız. 


Binary Dosyalar 
save “dosya ismi”, b < başlangıç adresi >, <bayt olarak uzunluğu >, | isteğe 
bağlı giriş noktası | (RETURNJ 


Bu seçenek bilgisayarın RAM'ında bulunan komple veri bloklarını, hafızada gö- 
züktüğü gibi binary olarak diskde saklamayı sağlar. Kaydetmeye, hafızadaki bö- 
lümün neresinden başlayacağını, uzunluğunu ve gerekiyorsa program olarak 
çalıştırılan dosyanın uygulamaya sokulacak bellek adresini bilgisayara bildirme- 
niz gerekir. 


Ekran Dökümü 


Bu, binary koruma işlemi, ekran hafızasındaki dataları direkt olarak, ekran dö- 
kümü formunda diskde saklar. Ekranın muhteviyatının görüldüğü gibi saklanma- 
sı için şu komut kullanılır. 


save “scrndump”,b, 49152, 16384 (RETURN) 
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49152 ekran belleğinin başlangıç adresidir ve 16384 ise saklamak istediğiniz ekran 
belleğinin uzunluğudur. 


Ekrana geri çağırmak için şunu yazınız. 
load “scrndump” (RETURNJ 
Son olarak bu kitapçığın başlangıcında ÖNEMLİ başlığında verilen, 


MONTAJ BİLGİLERİ 5, 6, 7 
ÇALIŞTIRMA BİLGİLERİ 1,2,3,4,5,6,7,9, 


bilgilerini tekrarlayınız. 
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Bölüm 8: Renk, Grafik ve Hal (Mode) 


Amstrad CPC 6128 renkli personel bilgisayarın üç tane ekran modu vardır. Mode 
9, Model, Mode2 


Bilgisayar ilk açıldığı an otomatik olarak Mode 1I'dedir. 


Değişik modları anlamak için bilgisayarı açınız ve 1 tuşuna basınız ve iki satır | 
ile doluncaya kadar basmaya devam ediniz. Şayet I'leri sayarsanız (bir satırdaki) 
40 tane olduğunu göreceksiniz. Bu Mode 1'de 40 kolon var demektir. (RETURN) 
tuşuna basınız, Syntax error mesajını alacaksınız fakat merak etmeyin, bu Ready 
mesajına geri dönmenin en kolay ve çabuk yoludur ki bu mesaj ile bilgisayar siz- 
den yeni komut bekliyor demektir. 


Şimdi şunu yazınız: 

mode 0 (RETURNJ 

Ekrandaki karakterlerin daha büyük olduğunu göreceksiniz. Yukarada bahsedi- 
len işlemi aynen yapınız, ekranda ilk satırdaki Ileri sayarsanız 20 tane olduğunu 
göreceksiniz. Bu mode 0'da 20 kolon var demektir. Tekrar |(RETURNJ tuşuna ba- 
sınız. 

Şimdi şunu yazınız: 


mode 2 (RETURNJ| 


Görüyorsunuz ki mode 2 en küçük karakteridir. Yine 1 tuşuna sürekli basınız, bu 
sefer bir satırda 80 tane 1 sayarsanız, yani mode 2'de 80 kolon var demektir. 


özetlersek: 


Mode 9-20 kolon 
Mode 1-40 kolon 
Mode 2-80 kolon 


karakter yazıyor demektir. 
Renkler 


27 renk seçeneği vardır. Bunlar yeşil monitörde (GT65) yeşilin değişik tonları olarak 
gösterilmiştir. Eğer GT65 monitörü aldıysanız, bilgisayarın renk olanaklarını ev- 
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deki TV'de kullanmak için AMSTRAD MP2 modülatör/güç kaynağı satın alabi- 
lirsiniz. 


Mode 0'da 27 renkten 16'sını istediğiniz zaman ekrana getirebilirsiniz. 
Mode 1'de 27 renkten ünü kullanabilirsiniz. 
Mode 2'de 27 renkten sini kullanabilirsiniz. 


BORDER (kenar), PAPER (sayfa), PEN (karakterin kendisi) renkleri birbirinden 


bağımsız olarak değiştirilebilir. Elde edilen 27 renk Tablo 1'de INK (mürekkep) 
rengi referans numaralarıyla liste halinde verilmiştir. 


ANA RENK KARTI 


INK NO RENK/INK INK NO RENK/INK 
ğ Siyah 14 Pastel Mavi 
1 Mavi 15 Portakal 

2 Parlak Mavi 16 Pembe 

3 Kırmızı 17 Pastel Magenta 
4 Magenta 18 Parlak Yeşil 
5 Leylak 19 Deniz Yeşili 
6 Parlak Kırmızı o 20 Parlak Cyan 
7 Mor 21 Kireç Yeşili 
8 Parlak Magenta 22 Pastel Yeşil 
9 Yeşil 23 Pastel Cyan 
10 Açık Mavi 24 Parlak Sarı 
11 Gök Mavisi 25 Pastel Sarı 
12 Sarı 26 Parlak Beyaz 
13 Beyaz 


Tablo Ii; Mürekkep Renkleri ve Numaraları 


Daha önce açıklandığı gibi, bilgisayar Mode 1 durumundadır. Diğer Mode'lardan 
Mode Ie dönmek için şu yazılır. 


mode 1 (RETURNJ 
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Ekran Görüntüsü 


PEN 


Anstrad 128K Microcomputer (v3) 
o190s Mesire Çonsneer E SEİLERESİLLİ 


BORDER 


PAPER 


BORDER kısmı, PAPER (kağıt) bölümünü çevreleyen kısımdır. Dikkat ederseniz 
bilgisayar ilk açıldığında BORDER ve PAPER mavi renktedir. PAPER, karak- 
terlerin arka fonudur ve bu fon üzerine yazılan karakterlerin rengini PEN belirler. 


Şimdi ekranda gördüğünüz renkleri nasıl seçeceğinizi ve değiştirebileceğinizi gös- 
tereceğiz. 


Bilgisayar ilk açıldığı zaman BORDER daima | nolu renge ayarlıdır. Bu renk ma- 
vidir. Border rengini değiştirmek için border komutu ve bunu takip eden renk nu- 
marası yazılır. Şunu yazınız: 


border 13 (RETURNJ 


Şimdi işin en ustalık isteyen bölümüne geldik. 
Bilgisayar açıldığı zaman PAPER numarası 0 ve PEN numarası | olarak otoma- 
tik seçilir. Bu tablo 1'deki 0 ve 1 numaralarına bakmak anlamına gelmez. 


Burada 4 ve I; PAPER ve BORDER numaralarıdır, INK renk numaraları yoktur. 
Şimdi şöyle düşünelim: Masamızda 9, 1, 2, 3 diye numaralandırılmış 4 dolmakale- 
mizi ve bu kalemlere doldurabileceğimiz, 9*dan 26'ya kadar 27 renk mürekkep var. 
Buradan da anlaşılıyorki 1 nolu kalemimiz her zaman aynı renk mürekkep ile do- 
lu değildir, değişik renkte mürekkep ile dolu olabilir ve 4 dolmakalem de aynı renk 
mürekkep ile doldurulmuş olabilir. 


Bu iş, bilgisayarınızda da böyledir. PEN ve INK komutlarını kullanırken kalem 
numarasını ve bu kalem (PEN) için mürekkep (INK) rengini seçebilirsiniz. 
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Mode 1'de (40 kolon) çalıştığımızı düşünerek aşağıdaki Tablo 2'den 1. ve 3. ko- 
lonlarda PEN numarası (e karşılık olan INK renk numarası 24?*dür. Tablo 1”deki 
INK Numarası 24 olan renk parlak sarıdır. 


BAŞLANGICDAKİ AYARLAMALAR 


Paper/Pen No Ink Rengi Ink Rengi Ink Rengi 
Mode ğ Mode 1 Mode 2 
0 1 1 1 
1 24 24 24 
2 20 20 1 
3 6 6 24 
4 26 1 1 
5 1) 24 24 
6 2 20 1 
7 8 6 24 
8 10 1 1 
9 12 24 24 
10 14 20 1 
11 16 6 24 
12 18 1 1 
13 22 24 24 
14 Yanıp sönme 1,24 20 1 
Yanıp sönme 16,11 24 


Tablo 2: PAPER/PEN/MODEJINK referansları 


Tablo 2'de verilen PAPER/PEN/INK bağıntıları sabit değildir. Siz INK kullana- 
rak bunları değiştirebilirsiniz. Komut iki kısımdan meydana gelir; 1. kısım PA- 
PER veya PEN numarasıdır ki siz INK (mürekkep) dolduracaksınız ve 2. kısım 
ise INK”in (mürekkep veya renk) rengidir. Komuttaki bu iki kısım birbirinden (,) 
ile ayrılır. 


PEN numarası Ii kullandığımızı biliyoruz ve bu kalemin (PEN) INK rengini por- 
takal rengine değiştirelim. Şunu yazınız. 


ink 1,15 (RETURNJ 
Ekrandaki karakterlerin renginin değiştiğini görürsünüz. 


Fon rengide INK ile değiştirilebilir. Bilgisayar açılınca PAPER numarasının 9 ola- 
rak seçildiğini biliyoruz, 6 nolu PAPER'”ın rengini INK'in rengini değiştirmekle 
değiştirebiliriz. PAPER'”ın rengini yeşil yapmak için (9 nolu renk) INK”in rengini 
şu komutu kullanarak değiştirelim. 


ink 0,9 (RETURNJ 
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Şimdi hepsi için değişik bir pen kullanalım. 


pen 3 (RETURNJ 
Yeni karakterlerin renginin nasıl değiştiğine dikkat ediniz. 


Şimdi siz 3 nolu PEN'i kullanıyorsunuz. Tablo 1 ve Tablo 2'den önceden doldu- 
rulmuş olan 3 nolu PEN'in INK renginin 6 (parlak kırmızı) olduğunu göreceksi- 
niz. Bunu pembeye değiştirmek için şunu yazınız. 


ink 3,16 |(RETURN)J 
Burada 3 PEN, 16 ise INK rengidir. 
Şimdi yeni bir sayafaya geçelim. Yeni bir sayfa seçildiği zaman önceki fon rengi 


(karakterlerin arkasındaki) değişmeyecektir. Çünkü bu renk farklı bir paper ko- 
mutu ile basılmıştır. Bunu görmek için şunu yazalım. 


paper 2 (RETURNJ 


Yine Tablo | ve 2'yi kullanarak fon renginin parlak cyan olduğunu görürüz. Si- 
yah yapmak için şunu yazın. 


ink 2,0 (RETURNJ 

Şimdi ekranda | ve 3 nolu PEN ile 0 ve 2 nolu PAPER fonu üzerinde yazılmış 
karakterler vardır. Kullanmayacağınız PEN veya PAPER, INKleri değiştirebilir. 
Örneğin: 

ink 1,2 (RETURN)J 

PEN no | yazılmış tüm karakterlerin rengini değiştirdi. 

cis (RETURN| 

yazarak ekranı temizleyiniz. 

Burada bilgisayara gerekli komutları vererek orjinal renklerine (çerçeve ve fon mavi, 
karakterler parlak sarı) (BORDER, PAPER, PEN ve INK ile) döndürebilirsiniz. 


Şayet bunu yapamazsanız bilgisayarı (CONTROLJ (SHIFTJ ve (ESC) tuşları ile 
resetleyiniz. 


Yanıp Sönen Renkler 


Karakterlerin renklerini, bu renkten diğer bir renge yanıp sönmelerini sağlamak 
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mümkündür. Bu işlem PEN'in INK komutuna bir fazla renk nosu ilave etmekle 
sağlanır. 


Karakterlerin parlak beyaz ve parlak kırmızı arasında yanıp sönmesi için bilgisa- 
yarı resetleyiniz. Şunu yazınız. 


ink 1,26,6 |(RETURNJ 


Bu durumda “1?” PEN numarası, “26” parlak beyaz rengin numarası ve ““6” da 
değişecek parlak kırmızıdır. 


Karakterlerin arkasındaki PAPER'”'ın da renginin iki renk arasında yanıp sönmesi 
sağlanabilir. 


Karakterlerin arkasındaki PAPER'”'ın yeşil ve parlak sarı arasında yanıp söndüğü- 
nü görmek için şunları yazınız. 


ink 9,9,24 (RETURNJ 


Bu durumda ““9”* PAPER numarası, “9” yeşil, “24” ise parlak sarıdır. Şimdi bil- 
gisayarı yeniden resetleyiniz. 


Mode 4'da PEN'in 14 ve 15 numaraları ile PAPER'”ın 14 ve 15 numaraları zaten 
yanıp sönen renkler oldukları için bunlara fazladan INK komut numarası yazıl- 
maz. 


Şimdi şunu deneyelim: 


mode 9 (RETURNJ 
pen 15 (JRETURNJ 


Ekranda Ready sözcüğünün gökmavisi ve pembe arasında yanıp söndüğünü göre- 
ceksiniz. 


Bu sefer de: 


paper 14 (RETURN)J 
cls (RETURNJ| 


Şimdi görüyorsunuz ki bir yandan Ready sözcüğü, gökmavisi ve pembe arasında 
yanıp sönerken fondaki PAPER da sarı ve mavi yanıp sönmektedir. 


Bu yanıp sönen renkleri de PEN ve PAPER için yeni bir INK komutu ile değiştir- 
mek veya kalıcı hale getirmek mümkündür. 


BORDER'”'ın da iki renk arasında yanıp sönmesini bir renk numarası ilavesiyle sağ- 
layabiliriz. Şunu yazınız: 
border 6,9 |(RETURNJ 
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Şimdi BORDER'”'ın parlak kırmızı ve yeşil arasında yanıp söndüğünü görüyorsu- 
nuz. Şunu unutlayınız; BORDER, 27 renkten birine veya ikisine ayarlanabilir. (Han- 
gi mode da olduğunuz farketmez) 


Bilgisayarınızı (CONTROLJ (SHIFT)J (ESCİ ile resetleyin. 


19 MODE 9 (RETURNJ 

20 rate — 600: REM programının hızını ayarlar (RETURNJ 
30 FOR b —9 TO 26 (RETURNJ 

40 LOCATE 3,12 (RETURN)J 

50 BORDER b (RETURNJ 

60 PRINT “border rengi”;b (RETURNJ 
70 FORt-—1 TO rate (RETURN)J 

80 NEXT t,b (RETURN)| 

90 CLG (RETURN)J 

190 PAPER p (RETURN)J 

129 PRINT “paper”;p (RETURNJ 
130 FOR n—9 TO 15 (RETURN) 
149 PEN n (RETURNJ 

150 PRINT “pen”;n (RETURNJ 

160 NEXT n (RETURN)| 

170 FOR t—1 TO rate*2 (RETURN)| 
180 NEXT t,p (RETURNJ 

190 MODE 1 (RETURNJ 

200 BORDER 1 (RETURNJ 

214 PAPER 9 (RETURNJ 

220 PEN 1 (RETURN)J 

239 INK 9,1 (RETURN) 

240 INK 1,24 (RETURN)| 

run (RETURN) 


ÖNEMLİ 


Yukarıdaki programda ve daha sonraki bölümlerde ve bu kitapçığın listelerin- 
de basıc komutları büyük harflerle yazılmıştır. Bu bilgisayar tarafından prog- 
ram LIST yapıldığı zaman komutların gözüktüğü gibidir. Genel olarak siz 
program yazarken komutları küçük harf ile yazınız. Böylelikle yazı hatalarınızı 


programı LIST yaptığınız zaman (yanlış yazılmış BASIC komutları büyük har- 
fe çevrilmez) kolaylıkla farkedersiniz. 


Değişkenlerin adları (x ve a$ gibi) program LIST yapıldığı zaman büyük harfe 
dönüştürülmez. z 


Dikkat 


Bundan böyle her satırdan sonra |(RETURNJ| tuşuna basmanızı hatırlatmaya 
cağız. Bunu otomatik olarak yaptığınız var sayıyoruz. 
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Grafikler 


Bilgisayarın belleğinde birçok karakter sembolleri vardır. Bunlardan birini yazmak 
için aşağıdaki fonksiyon kullanılır. 


chr$ ( |) 


Parantezin içine 32'den 255'e kadar uzanan sembol numarasını koymanız gerekir. 


(CONTROLJ (SHIFTJ (ESCJ tuşlarına basarak bilgisayarı resetleyiniz ve şunu 
yazınız: 


print chr$ (250) 


Ekranda 250 kod numaralı sağa doğru yürüyen bir adam sembolü göreceksiniz. 


Bütün karakterleri ve sembolleri görmek için aşağıdaki programı yazınız. (her sa- 
tırdan sonra RETURN tuşuna basmayı unutmayınız) 


10 forn—32 to 255 
20 print n;chr$i/n); 
30 nextn 

run 


Gerektiğinde başvurmanız için karakterlerin türleri ve ilgili kod numaraları ““Bil- 
giniz için” adlı bölümde verilmiştir. 


Locate 


Bu emir; karekter kursörünün ekranda belirtilen bir tarafa gitmesini sağlar. Loca- 
te emriyle değiştirilmediği takdirde karakter kursörü ekranın sol üst köşesinden 
başlar. Yani x,y koordinatları 1,1'dir. (x yatay, y dikey pozisyonu belirtir) Mode 
de 40 kolon ve 25 satır vardır. Bir karakteri üst satırın tam ortasına yerleştirmek 
istersek (mode 1'de) x,y koordinatları için 20,1 kullanmalıyız. Bu durumu görmek 
için şunu yazalım. 


mode | (ekran temizlenir ve kursör sol üst köşeye gider) 
19 locate 20,1 

20 print chr$(254) 

run 


Bunun en üst satır olduğunu kanıtlamak için şunu yazın: 


border 0 


şi 
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BORDER siyah oldu ve adamı en üst satırın ortasında göreceksiniz. 
Mode 0 da 20 kolon ve 25 satır vardır. Şunu yazınız: 


mode 8: run 


Şimdi ise adamı ekranın sağ üst köşesinde göreceksiniz. Bunun sebbi Mode 4 da, 
x koordinatının belirttiği 20 sayısı en son kolondur. 


Mode 2 de ise 80 kolon ve 25 satır vardır. Aynı programı kullanarak adamın nere- 
de olduğunu tahmin edebilirsiniz. Şunu yazınız: 


mode 2: run 


Mode 1'e dönmek için ise şu komutu yazınız: 
mode 1 


Şimdi kendi kendinize locate ve chr$( ) komutlarını daha iyi öğrenmek için de- 
ney yapmak üzere değişik pozisyon ve karakter numaraları koyunuz. Örneğin; 


locate 29,12: print chr$(240) 


Ekranı tam merkezinde bir ok göreceksiniz. Yukarıdaki örnekte; 


20 yatay (x) koordinatı (1 ile 40 arası) 
12 dikey (y) koordinatı (1 ile 25 arası) 
240 karakter sembolü (32 ile 255 arası) gösterir. 


Karakter sembolünü ekran boyunca tekrarlamak için şu programı yazın. 


19 CLS 

20 FOR x —1TO 39 
30 LOCATE Xx ,20 

50 PRINT CHR$ (250) 
60 NEXT Xx 

70 GOTO 19 

run 


Durdurmak için (ESCJ tuşuna iki kez basınız. 
Yeni bir karakter yazmadan önce bir evvelki karakteri silmek için şunları yazın: 


50 print “ ";chr$(259) 


Yeni yazılmış 50. satır otomatik olarak bir önceki 50. satırın yerini alacaktır. Şim- 
di şunu yazınız. 


run 
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FRAME 


Karakterin ekran üzerindeki hareketini sağlamak için şu satırı ekleyiniz. 
40 frame 


FRAME komutu; ekrandaki nesnenin hareketini, ekran tarama frekansına senk- 
ronize eder. Bu komutu, karakteri veya grafiği ekran üzerinde yavaşça hareket et- 
tirmek için kullanabilirsiniz. 


Bu program bazı geciktirme çevrimleri ve değişik karakter sembolleri kullanarak 
genişletildiğinde daha iyi anlaşılır. Şunu yazınız: 


list 

Şimdi aşağıdakileri ekleyiniz. 
70 FORn—1TO 304:NEXT n 
80 FOR x -39TO 1 STEP-1 
90 LOCATE Xx ,2ğ 

100 FRAME 

119 PRINT CHRŞ (251); ” 
120 NEXT Xx 

130 FORN—1 TO 304:NEXT n 


149 GOTO 24 
run 


PLOT 

LOCATE komutunun tersine PLOT komutu pixel koordinatlarını kullanarak grafik 
kursörün yerini belirlemek için kullanılır. (Pixel ekranın mümkün olan en küçük 
parçasıdır) 

Grafik kursör ekranda görünmez yani karakter kursöründen farklıdır. 
Ekranda 640 yatay, 400 dikey pixel vardır. x,y koordinatları ekranın x,y koordi- 
natları 0,9 olan sol alt köşesinde yer almıştır. Locate komutunun tersine yerleri 
MODE 0, 1 ve 2'de değişmez. 

Bu durumu iyice görmek için bilgisayarı resetleyin ve şunları yazınız. 

plot 320,200 


Küçük bir nokta ekranın merkezinde görülecektir. 


Şimdi mode değiştirelim. 
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mode ( 
plot 320,200 


Nokta hâlâ ortadadır fakat daha büyüktür. Tekrar mode değiştirelim. 


mode 2 
plot 320,200 


Noktanın yeri değişmemiş fakat ufalmıştır. 


PLOT komutuna iyice alışmak için ekranın değişik yerlerine, değişik mode'lar kul- 
lanarak noktalar koyunuz. Bitince tekrar MODE 1'e dönün ve ekranı temizleyi- 
niz. 


DRAW 


Önce bilgisayarınızı resetleyiniz. DRAW (çiz) komutu grafik kursörünün son du- 
rumundan başlayarak çizgi çizmeye yarar. Bunu daha iyi anlamak için aşağıdaki 
program ile bir dikdörtgen çizelim. 


PLOT komutunu kullanarak grafik kursörünü istediğimiz yere getiriyoruz sonra 
çizime başlıyoruz. i 


5 cls 

19 plot 109,10 

20 draw 19,390 
39 draw 630,390 
49 draw 639,19 
50 draw 19,10 
60 goto 60 

run 


Programı durdurmak için (ESCJ tuşuna iki defa basınız. 


(60. satırda bilgisayara 60. satır çerçevesinde bir çevrim yapması söylenmiştir. Ya- 
pılan bu çevrim (10op) ancak (ESC) tuşuna iki kez basmakla durdurulabilir. Bu 
tip komutlar, program bittiğinde ekranda Ready yazısını görmek istemediğimiz za- 
man faydalıdır.) 


Şimdi 1. dikdörtgenin içine 2.sini çizelim. 
60 plot 29,20 

79 draw 209,384 

80 draw 629,384 

90 draw 624,29 

194 draw 24,24 

119 goto 110 

run 
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Programı durdurmak için (ESCJ tuşuna iki defa basınız. 


MOVE 


MOVE (hareket) komutu PLOT komutu ile benzer gaye için kullanılır, grafik kur- 
sörü belirlenen x,y koordinatlarına hareket eder fakat pixel (nokta) grafik kursö- 
rün yeni yerinde görünmez (çizilmez). Şunu yazınız. 


cls 
move 639, 399 


Grafik kursörü sağ üst köşeye göndermemize rağmen hiç bir işaret göremedik. 
Bu durumu, bu noktadan ekranın merkezine bir çizgi çizerek kanıtlayalım. 


draw 324,244 


Çemberler 


Çemberler, PLOT emri kullanılarak yapılabilir. PLOT'la çember oluşturma çem- 
ber üzerindeki her noktanın x,y koordinatlarını işaretleyerek olur. Aşağıdaki şe- 
kilde çember üzerindeki p noktasının x,y koordinatları; 


xz 190Xx cos (a) 
yz 190Xxsin (a) 


200 


Ekranın Alt 
VA Köşesi 


320 
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Plot ile Çember Çizimi 


Daha önceki programlarda ekranın sol alt köşesine göre noktalar işaretlemiştik. 
Eğer biz çemberi ekranın ortasına yerleştirmek istersek, çemberin merkezinin ko- 
ordinatlarını 320,200'e işaretlememiz gerekir. Sonra merkez pozisyon koordinat- 
larını ilave ederek çemberin tüm noktalarını ayarlarız. Buna göre çember şöyle çizilir. 


new 

19 CLS 

20 DEG 

30 FOR a1 TO 36 
49 MOVE 320,200 


50 PLOT 320 4 190 x COS (a), 200-190 SIN (a) 
60 NEXT 
RUN 


Yukarıdaki programa başlarken NEW komutu yazıldı. Bu komut, bilgisayara ha- 
fızasındaki herhangi bir programı temizlemesini bildirir, fakat ekran temizlenmez. 


Dairenin çapı, 190 sayısını (190 pixel ile alakalıdır) azaltarak küçültülebilir. 


Dairenin daha değişik bir biçimde çizilmesi için (radyan) 20. satırı değiştirelim. Şunu 
yazınız. 


20 


Merkezden çizilen çizgilerden oluşan, içi dolu daire çizmek için 50. satırdaki plot 
komutunu draw ile değiştirelim. 


50 draw 320 * 190 x cos (a), 2004 190 sin (a) 


Bu işlemi 20. satır varken ve yokken bir daha deneyiniz. 


Dikkat ederseniz 60. satırda NEXT a yerine NEXT yazmak yeterlidir. Bilgisayar 
bu NEXT'in hangi FOR'a ait olduğunu çıkartabilir. Programın içinde birden faz- 
la FOR ve NEXT çevrimi varsa, değişkenlerin adlarını koymanız gerekmektedir. 


BAŞLANGIÇ NOKTASI 


Daha önceki programda dairenin merkezini belirtmek için MOVE komutunu kul- 
landık ve x,y koordinatlarını bu merkez konumuna ilave ettik. Bu merkez koordi- 
natlarını, PLOT komutuyla belirtilmiş merkez koordinatlarına eklemek yerine 
ORIGIN komutunu kullanabiliriz. Bu komut önce dairenin merkezini, sonra da 
x,y koordinatlarını bu ORIGIN'e göre belirler. Bunun için aşağıdaki programı ya- 
zalım. 
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new 
19 cis 

20 fora—1 to 360 

30 origin 320,200 

40 plot 190 xcos (a), 190 sin (a) 
50 next 

run 


Daha küçük dört daire çizmek için şu programı yazalım. 


new 

19 CLS 

20 FOR a-1 TO 364 

30 ORIGIN 196,282 

40 PLOT 50 34 COS (a), 50#SIN (a) 
54 ORIGIN 442,282 

60 PLOT 504 COS (a), 50£SIN (a) 
70 ORIGIN 196,116 

80 PLOT 504 COS (a), 502£SIN (a) 
90 ORIGIN 442,116 

100 PLOT 50# COS (a), 503£SIN (a) 
11 NEXT 

run 


Daire çiziminde değişik bir yol görmek için şu programı yazalım. 
new 

19 MODE 1 

20 ORIGIN 329,200 

30 DEG 

40 MOVE 9,190 

50 FOR a-9 TO 364 STEP 19 

60 DRAW 190 xSIN (a), 190 x COS (a) 

70 NEXT 

run 


Bu sefer çemberin etrafında çizgi çizildi, çember PLOT ile yapıldığından daha ça- 
buk çizildi. Bir kere daha 30. satırdaki DEG komutunu kaldırarak programı çalış- 
tırın. 


FILL (DOLDUR) 


FILL komutu çizilerek belirlenmiş alanları veya ekran kenarları/grafik pencere çev- 
relerinin doldurulması için kullanılır. Bilgisayarı resetleyin ve şu programı yazın. 


new 

19 CLS 

20 MOVE 29,20 
30 DRAW 629,20 
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44 DRAW 319,389 
50 DRAW 29,29 
run 


Ekranda bir üçgen göreceksiniz, grafik kursörünü aşağıdakini yazarak ekranın or- 
tasına getiriniz. 


move 320,200 


PEN numarası 9'ü kullanarak FILL komutunu yazınız. Biz belirlenen PEN ile grafik 
kursörün durduğu yerden çizilmiş olan sınıra (üçgen) doğru ekranı doldurduk. 


fill 8 

Şimdi grafik kursörü üçgenden dışarı çıkartalım. 
move 0,0 

Şimdi işe aşağıdakini yazınca ne olduğuna bakalım. 
fill 2 


Bilgisayar ekranın kenarları ile çizilen çizgiler arasını PEN no 2'yi kullanarak dol- 
durdu. 


Programı, şu satırları ilave ederek değiştirelim. 


50 draw 50,50 
60 move 329,200 
70 fill 3 

run 


buradaki boşluk kalemin mürekkebinin o tarafa sızıntı yapmasına neden olur. 


Bu konuyu, önce işaretlenmiş çemberin içini doldurup sonra çizerken bir daha iz- 
leyelim. 

new 

19 CLS 

20 FOR a-—1TO 360 

39 ORIGIN 329,200 

40 PLOT 190 xCOS (a), 190 X5SIN (a) 
50 NEXT 

60 MOVE-188,9 

70 FILL3 

run 


Şimdi şunu deneyiniz. 
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New 

19 MODE 1 

20 ORIĞIN 324,294 

30 DEĞ 

40 MOVE 9,194 

59 FOR d—-94 TO 364 STEP 19 
60 DRAW 190 xSIN (d), 190 x COS (d) 
70 NEXT 

80 MOVE -188,9 

90 FILL3 

run 


Biz doldurulmuş dairenin sınır çizgisini, pen ink'ini (kalemin mürekkebini) paper 
ink (sayfa mürekkebi) ile aynı yaparak görünmez hale sokarız. Örneğin; 


45 GRAPHICS PEN: INK 2,1 
run 


GRAPHICS PEN komutu, ekrana çizilen grafiğin kalemini seçer. INK komutu 
da bu kalemin mürekkep rengini belirler. Yukarıdaki örnekte ise sayfa rengi ile 
aynı idi. 


Son olarak şu gösteri programını yazalım. 
new 

19 MODE 9:BORDER 13 

20 MOVE 9,200: DRAW 640,200 
30 FOR x -<89 TO 564 STEP 84 
40 MOVE x,8:DRAW x,400 

50 NEXT:MOVE -40,300 

60 FOR c-0TO7 

70 MOVER 89,9:FILL c 

80 MOVER 49,-20:FILL c4*8 

9g MOVER 9,200:NEXT 

199 GOTO 199 

run 


dolu alanların rengi, doldurulduktan sonra değişebilir. Örneğin: 


190 SPEED INK 34,39 

119 BORDER RND # 26,RND # 26 

120 INK RND *15,RND * 26,RND * 26 
130 FORt—1 TO 549:NEXT: GOTO 114 
run 


İleri Detaylar 


CPC 6128'de grafik için detaylı bilgileri, “Boş Vaktinizde” adlı konunun ““Gra- 
fiksel Konuşma” bölümünde bulabilirsiniz. 
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Bu bölümü tamamlamak ve irdelemek için, sizin anlayabileceğiniz birçok komut 
ve terimlerden oluşan birkaç grafik gösteri programı vereceğiz. Her program de- 
vamlı şekiller çizecektir. 


new 

19 BORDER 4:GRAPHICS PEN 1 

20 m—CINT (RND *2):MODE M 

30 il — RND 3 26:i1 — RND x 26 

49 IF ABS (i1-i2) 19 THEN 34 

59 INK 9, iT:INK 1, i2 

60 S—RNDx543:ORIGIN 324, -100 

70 xX-—-100TOYSTEPS 

89 MOVE 9,9:'DRAW Xx ,300:'DRAW 4,600 
99 MOVE 9,9:DRAW - x 349:'DRAW 9,600 
140 NEXT: FORt—1 TO 2499:NEXT:GOTO 24 
run 


19MODE 1:BORDER 9:PAPER 9 

20 GRAPHICS PEN 2:INK 9,8:i — 14 
30 EVERY 2204 GOSUB 154 

40 flag —9:CLG 

50 Ink 2,14--RNDx12 

60 b —RNDXx541 
70cY—RNDX*54H1 

80 ORIĞIN 329,209 

90 FORa-— 4 TO 109 STEP PI/39 
199 xw — 190 x COS (a) 

119 MOVE xo, yo 

120 DRAW 200 x COS (a/b“/), 200 #SIN (vc) 
130 IF flag—1 THEN 40 

140 NEXT 

150 flag— 1:RETURN 

run 


19 MODE 1:BORDER 0:DEG 

20 PRINT “Lütfen bekleyiniz” 

30 FORn—-1T0O3 

40 INK 9,8:INK 1,26 2,6:INK 3,18 
50IFn—1 THEN sa-— 120 

60 IFn—2 THEN sa-—135 

701Fn—3 THEN sa-—154 

80 IFn—1 THEN ORIĞIN 49,-50,9,650,0,400 ELSE ORIGIN 9,9,9,649,0,400 
90 DIM c x(5), cy(5), r(5), 1c(5) 

190 DIM np (5) 

119 DIM px94(5,81), py“/0(5,81) 

120 st— 1:cx(1) — 320:cy(1) — 208:r(1) — 80 
130 FOR st-11T04 

140 r(st* 1) —r(stY/2 
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150 NEXT st 

160 FOR st—-1TO5 

170 lc(st) —8:npf(st) —9 

180 np(st) — np(st) * 1 

190 px9/(st,np(st)) — r(st) x SIN(Ic(st)) 

200 py“o(st,npf(st)) — r(st) * COS(lc(st)) 

210 lc(st) — 1c(st) * 360/r(st) 

220 lc(st) 36 THEN 184 

230 px“o(st,np(st) * 1) —px“o(st,1) 

240 py“/o(st,np(st) * 1) — py9/o(st,1) 

250 NEXT st 

260 CLS:cj — REMAIN (1):cj — REMAIN (2) 
270 cj — REMAIN (3):INK 1,2:st—1 

280 GOSUB 354 

290 LOCATE 1,1 

300 EVERY 25,1 GOSUB 514 

319 EVERY 15,2 GOSUB 554 

329 EVERY 5,3 GOSUB 594 

339 ERASE cx,cy,r,lc,np,px9/6 ,pyYo:NEXT 
349 GOTO 34ğ 

350 cx — cx(st):cyo — cy(st):lc(st) — O 

360 FOR x95 1 TO npfst) 

3709 MOVE cx“/ ,cyo 

380 DRAW cx“ *'x“o(st,xYo),cyo * pyo(St,X o),1 4 (st MOD 3) 
390 DRAW cx *pxYo(st,x“o * 1),cyo * pyo(st,x Yo * 1),1 4 (st MOD 3) 
400 NEXT xp 

419 IF st—5 THEN RETURN 

420 Ic(st) 0 

430 cx(st * 1) —cx(st) * 1.5 x r(st) x SIN(sa - Ic(st)) 
440 cy(st * 1) —cy(st) * 1.5 xr(st) x CIS(sa * Ic(st)) 
450 st—st*#1 

460 GOSUB 354 

470 st—st-1 

480 Ic(st) —lc(st) -2 xsa 

499 IF (Is)X(st MOD 364 9 THEN 439 
500 RETURN 

510 ik(1)-14RNDx25 

520 IF (ik(1) — (2) OR ik(1) — ik(3) THEN 519 
530 INK 1,ik(1) 

540 RETURN 

550 ik(2) — 1-4 RND «25 

560 IF ik(2) —ik(1) OR ik(2) — ik(3) THEN 554 
570 INK 2, ik(2) 

580 RETURN 

590 ik(3) — 1-4 RND x25 

600 IF ik(3) —ik(1) OR ik(3) — ik(2) THEN 594 
619 INK 3, ik(3) 

620 RETURN 


Bölüm 9: Sesi Kullanmak 


Ses bilgisayardaki haporlörden çıkar. Eğer MP2 modülatör/güç kaynağı ve bir te- 
levizyon kullanıyorsanız TW'nizin ses kontrolunu en aza getirin. 


Ses seviyesi ayarını bilgisayarın sağ tarafındaki VOLUME kontrolünden ayarla- 
yabilirsiniz. Ses ayrıca stereo setinizin auxiliary input soketine; bilgisayarınızın STE- 
REO yazılı soketi kullanarak verilebilir. Bu bilgisayarınızdan çıkan sesi hi-fi hoparlör 
veya kulaklıktan dinleme olanağı sağlar. Bilgisayarın STEREO soketinin bağlan- 
tılarıyla ilgili bilgileri bu konunun 2 nci bölümünde bulabilirsiniz. 


Ses Komutu (SOUND) 


SOUND komutu 7 kısımdan (parametreden) oluşmuştur. İlk ikisi mutlaka kulla- 
nılır, diğerleri isteğe bağlıdır. Komutun tipi şöyledir: 


SOUND < kanal durumu >, <ton periodu>,<süre,><ses şiddeti >, < ses şid- 
deti envelopu >, < ton envelopu, >, < gürültü periodu > 


Biraz karışık görünmekle beraber her parametreyi incelersek çok geçmeden hepsi- 
ni kavrarız. Parametreleri tek tek inceleyelim. 


Kanal Durumu 


Bu anda işi basit tutmak için kanal durumunu ses kanalının referans durumu diye 
ele alacağız. 3 ses kanalı vardır ve şimdi biz | nolu kanal durumunu kullanacağız. 


Ton Periodu 


Ton periodu sesin saniyedeki salınım sayısının teknik ifadesidir. Diğer bir değişle 
hangi nota olduğudur (do,re,mi,vs.). Her notanın bir ayar numasarı vardır; ve bu 
numara ton periodudur. ““Referansınız için” adlı konuda orta (do)nun ton perio- 
dunun 239 olduğunu göreceksiniz. 

Şimdi bilgisayarı ilk duruma getirin (CONTROLJ (SHIFT)J (ESCİ ve şunu yazınız. 


10 sound 1,239 
run 


Siz 0.2 saniye süren bir orta do notası duyacaksınız. 


Her hiç bir şey duymadıysanız bilgisayarın VOLUME kontrol düğmesini kontrol 
ederek tekrar RUN yazınız. 
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Süre 


Bu parametre sesin uzunluğunu ayarlar; diğer bir değişle sesin ne kadar süreceğini 
ayarlar. Parametre saniyenin 0.01 olan birimlerle çalışır ve parametre belirtilme- 
diği zaman parametreyi 20 olarak kabul eder. Bizim notayı 0.2 saniye duymamı- 
zın sebebi budur. 0.01 X20-—0.2 saniye 


Nota süresinin 1 saniye olması için süre 100 olmalıdır; 2 saniye olması için 200 
kullanılmalıdır. 


19 sound 1,239,200 
run 


Orta do sesini 2 saniye duyacaksınız. 


Ses Şiddeti 


Bu parametre notanın başlama ses şiddetini belirler. Numara 0 ile 15 arasındadır. 
O enaz, 15 en fazladır. Eğer hiç bir numara kullanılmamışsa 12 kabul edilir. 


14 sound 1,239,299,5 
run 


Bu sesin şiddetine dikkat edin. Şimdi daha büyük bir ses numarası kullanalım. 


14 sound 1,239,249,15 
run 


Şimdi daha yüksek bir ses duyacaksınız. 


Ses Şiddeti Zarfı 


Notanın süresinde ses şiddetini değiştirmek için bir ses şiddeti zarfı tanımlamanız 
gerekir. Bu ayrı bir ENV komutu kullanarak yapılabilir. SOUND komutu gibi her 
birinin kendi referans numarası olan değişik sayıda ses şeddeti zarfı yapabilirsi- 
niz. Şayet referans numarası | olan ses zarfı SOUND komutunda kullanmak isti- 
yorsanız ses şiddeti zarf ile belirlenen yere 1 yazınız. Ses şiddeti zarfı yaratma da- 
ha sonra kısaca açıklanacaktır. 


Ton Zarfı 


Notanın çalma süresinde tonunun veya perdesinin değişmesini istiyorsanız ayrı bir 
ENT komutu kullanarak ton zarfı tanımlayabilirsiniz. SOUND komutunda oldu- 
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ğu gibi her birinin kendi referans numarası olan değişik sayıda ton zarfı vardır. 
Şayet referans numarası | olan ton zarfını SOUND komutunda kullanmak isti- 
yorsanız ton zarfı ile belirlenen yere 1 yazınız. Ton zarfı yaratmak daha sonra kı- 
saca açıklanacaktır. 


Gürültü 


SOUND komutunun son parametresi gürültüdür. Gürültünün elde edilebileceği alan 
gürültü parametresinin 1 ve 31 arasında değiştirilmesi ile sağlanır. SOUND komu- 
tunun sonundaki gürültü 2 yazın ve sonucu izleyin. Sonra gürültü parametresini 
27 yapın ve aradaki farkı izleyin. 


19 sound 1,239,200,15,,,2 
Yukarıdaki örnekte iki boş parametre (,,,) gürültü parametresi 2'den önce yazıl- 
mıştır. Bunun nedeni ise bizim ses zarfı ve ton zarfını belirlemediğimizdendir. 


Ses Şiddeti Zarfı Meydana Getirme 


Ses şiddeti zarfı komutu ENVW'dir. Basit şekilde komut 4 parametreden oluşmuş- 
tur ve şöyledir. 


ENV < zarf numarası>, <basamak sayısı >, <basamak genişliği >, < basamak 
zamanı > 


Daha önce yaptığımız gibi parametreleri tek tek inceleyelim. 


Zarf Numarası 


SOUND komutunda volume zarfının çağrılabilmesi için O ve 15 arasında belirlen- 
miş referans numarasıdır. 


Basamak Sayısı 


Bu parametre ses sürerken kaç değişik volume basamağı istediğinizi belirler. Ör- 
neğin 10 saniye süren bir notada her biri 1 saniye olan 10 volume basamağı istedi- 
niz. Bu durumda basamak sayısı parametresi 10 olarak kullanılacaktır. 
Basamak sayısı 1 ile 127 arasında değişir. 
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Basamak Genişliği 


Her basamak ses genliği bakımından esas basamağa göre 0-15 seviyesi arası deği- 
şebilir. 15 ses seviyesi SOUND emrindeki seviyelerle aynıdır. Bunun beraber basa- 
mak genliği -128 4 127 arasında ayarlanabilir. Böylece yalnız ses gücünü aşağı yukarı 
ayarlamakla kalmayıp volume seviyesi her 15*den sonra tekrar Olanır ve çok deği- 
şik sesler elde edilebilir. 


Basamak Zamanı 


Bu parametre basamaklar arasındaki zamanı 0.01 saniye bazına göre belirler. Ba- 
samak zamanı numaraları Odan 255'ye kadar değişen sıralamadır. Böylece basa- 
maklar arasındaki en uzun zaman 2.56 saniyedir. (0 rakkamı 256 diye kabul edi- 
lir.) 


Şunu unutmayınız ki basamak sayısı parametresiyle basamak zamanı çarpıldığın- 
da SOUND komutundaki süre parametresinden büyük olamaz, aksi takdirde ses 
bütün ses şiddeti basamaklarını geçemeden biter. Böyle bir durumda ses şiddeti 
zarfının geri kalan kısım atılır. 


Aynı şekilde eğer süre parametresi SOUND komutundaki basamak sayısı ile basa- 
mak zamanının çarpımından büyük ise bütün ses şiddeti basamakları geçtikten sonra 
son seviyede sabit kalır. Ses şiddeti zarfını incelemek için aşağıdaki programı yazı- 
nız. 


19 ENV 1,19,199 
20 SOUND 1,142,190,1,1 
run 


20'nci satır 10 saniye süren ses şiddeti, I”den başlayan ses şiddeti zarf numarası 
I olan 10 basamaklı her 1 saniyede her basamakta ses şiddeti 1 artan ton periodu 
142 (la) olan bir sesi tanımlar. 

10'ncu satırı değiştirerek zarf değişmesini etkisini görelim. 


19 ENV 1,199,1,19 
19 ENV 1,19092,10 
10 ENV 1,199,4,19 
19 ENV 1,199,20,20 
10 ENV 1,50,2,20 
10 ENV 1,50,15,30 


Son olarakda sunu denevin 
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19 ENV 1,502,19 


Sesin yarı zamanında seviye aynı kaldı. Çünkü basamak sayısı 50 idi ve her basa- 
mak arasındaki zaman 0.1 saniye idi. Bu nedenle ses şiddeti sadece 5 saniye değiş- 
ti. Fakat SOUND komutundaki süre parametresi 1000 olarak verilmişti. (10 saniye) 


Ne tür sesler meydana getirebileceğini deneyin. 


Şayet daha karışık bir ses şiddeti zarfı meydana getirmek istiyorsanız 3 parametre- 
yi basamak sayısı , basamak genliği , basamak zamanı ENV komutu sonunda 
sonunda aynı zarfın değişik bölümlerini belirlemek için 4 defa daha tekrar ediniz. 


Ton Zarfı Meydana Getirmek 
Ton zarfı komutu ENTdir. En basit 4 parametreden oluşmuştur. 


ENT < zarf numarası >, < basamak sayısı >, <basamakların ton periodu >, <ba- 
samak zamanı > 


ZARF NUMARASI 


Zarf numarası belli bir zarfı SOUND komutunda belirlemek için 0 ile 15 arasında 
yer alan bir referans numarasıdır. 


Basamak Sayısı 


Bu parametre ses devam ederken kaç değişik ton basamağı istediğinizi belirtir. Ör- 
neğin 10 saniye süren bir nota, her biri 1 saniye olan 10 ton basamağı istersek (ba- 
samak sayısında 10 parametresi kullanmalıyız. Basamak sayısı O ile 239 arasında 
değişir. 


Ton Periyodunun Basamakları 


Bu parametrenin ton periodu -128 ile 4 127 arasında değişir. Negatif basamaklar 
notaların frekansını arttırır (tizleştirir). En kısa ton periodu Odır. Ton zarfını he- 
saplarken bu akılda tutulmalıdır. ““Sizin bilginiz için”? adlı bölümde ton periodla- 
rının bütün kapsamı gösterilmiştir. 
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Basamak Zamanı 


Bu parametre basamaklar arasındaki 0.01 saniyelik birimler seçilen zamanı belir- 
ler. Basamak zamanı numaraları O ile 255 arasındadır. Bu, basamaklar arası en 
uzun zaman 2.56 saniye demektir. (0 rakkamı 256 kabul edilir.) 


Şunu unutmamak gerekir: basamak sayısı parametresi ile basamak zamanı para- 
metresinin çarpımı SOUND komutundaki süre parametresinden büyük olması ge- 
rekir. Çünkü bütün ton basamakları geçmeden ses biter. Bu durumda ton zarfının 
geri kalan kısmı çıkartılır. 


Aynı şekilde SOUND komutunun süre parametresi basamak sayısı ile basamak za- 
manı çarpımından uzun olduğu zaman.ses, bütün ton basamaklarını geçip gittiği 
halde devam eder ve son ton frekansında sabit kalır. Ton zarfı ile deney yapmak 
için şu programı yazınız. 

19 ent 1,190,2,2 

20 sound 1,142,200,15,1 

run 


20'nci satırdaki ton periodu 142 (la) olan 2 saniye devam eden ses şiddeti 15*den 
(max) başlayan ses şiddeti zarfı olmayan (boş parametre ile gösterilen) ve ton zarf 
numarası olan sesi tanımlar. 


10'ncu satır ton zarf numarası 1 olan 100 basamaklı her 0.02 saniyede 2 ile yükse- 
len ton periodlu ton zarfını belirliyor. 


Şimdi 10'ncu satırı değiştirerek ton zarfının değişmesini izleyin. 


19 ent 1 1,199,-2,2 
19 ent 1,19,4,20 
19 ent 1,19,-4,20 


Durdurmak için iki defa |JESC)J tuşuna basınız. 


Şimdi de ses şiddeti zarfını, ton zarfını ve SOUND komutunu beraberce değişik 
sesler elde etmek için kullanalım. Başlanıç olarak; 


19 env 1,100,1,3 

20 ent 1,190,5,3 

30 sound 1,142,300,1,1,1 
run 


Sonra 20'nci satırı aşağıdakiyle değiştirelim. 
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20 ent 1,100,-2,3 
run 


Şimdi de bütün satırları değiştirelim. 


10 env 1,1409,2,2 

20 ent 1,199,-2,2 

30 sound 1,142,290,1,1,1 
run 


Eğer daha karışık ton zarfı yaratmak istiyorsanız, üç parametreyi basamak sayısı, 
basamağın ton periodu, basamak zamanı ENT komutunun sonunda 4 defa daha 
tekrarlatınız. Böylelikle aynı zarfın değişik bir bölümünü tanımlamış olursunuz. 


AMSTRAD CPC 6128 BASIC KOMUTLARI LİSTESİ adı altındaki bölümde bü- 
tün değişik ses komutlarını bulabilirsiniz. Eğer daha melodik bir şeyler isterseniz 
“Müziğin sesi”? adlı konuya bakınız. 
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Bölüm10: AMSDOS ve CP/M 
AMSDOS Nedir?.... 


Bilgisayar açıldığı zaman ve resetlendiği zaman, sistem işlemleri AMSDOS altında 
yürütür. AMSDOS, AMStrad Disc Operating System (Amstrad disk operasyon 
sistemi) kelimelerinin kısaltılmış şeklidir ve aşağıdaki dosyalama komutları ile fonk- 
siyonlarını sunar: 


LOAD “dosya adı” 
RUN “dosya adı” 
SAVE “dosya adı” 
CHAIN “dosya adı” 
MERGE “dosya adı” 
OPENİIN “dosya adı” 
OPENİIN “dosya adı” 
OPENOUT “dosya adı” 
CLOSEIN 
CLOSEOUT 

CAT 

EOF 

INPUT # 9 

LINE INPUT # 9 
LIST # 9 

PRINT # 9 

WRITE # 9 


Bunlara ilaveten, AMSDOS disk idaresi için ilave komutlar içerir. 


Bu komutlar, harici komutlar diye adlandırılır ve önlerine çubuk (bar) sembolü 
() konur çubuk sembolünü (SHIFT) © tuşuna basarak elde edebilirsiniz. 


Bazı çok kullanılan harici komutlar şunlardır. 


ape (ikiye ayrılır. | tape.in ve | tape.out) 


la 
lb 
lt 
I disc (ikiye ayrılır. | disc.in ve | disc.out) 


la vel b komutları 2-sürücü sisteminde kullanılır ve bilgisayarın hangi sürücüyü 


çalıştıracağını belirtir. 
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Örnek: 


la 
load “FILENAME” 


Bilgisayara belirtilmiş programı sürücü A'daki disk'den yüklemesini söyler. 
Eğer | a ve | b'den biri verilmemişse veya bilgisayar ilk konumuna getirilmişse Sis- 
tem sürücü A ile çalışır. 


Eğer sadece bilgisayardaki disk sürücünü kullanıyorsanız bu sürücü A'yı kullana- 
cağı şeklinde yorumlanır ve | a ve | b komutlarına gerek yoktur. | b komutunu ilave 
disk sürücüsü yokken girerseniz, ekranda şu mesajı alırsınız. 


Drive B: disc missing (disk yok) 
Retry, Ignore or Cannel (tekrar dene, unut veya iptal) 


Yapacağınız şey C (iptal) olmalıdır. 


Kaset Kullanmak İsterseniz 


Itape komutu bilgisayara bütün yükleme kaydetme vs.... işlemleri disk yerine ha- 
rici kaset ünitesi ile gerçekleştirmesini emreder. Itape girilmediği zaman bilgisayar 
daima disk operasyonunu işleme sokar. 

I tape belirtildikten sonra tekrar disk operasyonuna dönmek için aşağıdaki komu- 
tu yazmak gerekir. 


I disc 


Değişik bir işlem olarak kasetten yüklemeyi disk de saklamayı isterseniz şu komu- 
tu kullanın. 


I tape.in 


Bu komut bilgisayara girilecek veriyi kasetten oku fakat kaydedilecek veriyi disk?'e 
yaz demektir. Aynı şekilde girilecek veriyi disk'ten, saklanacak veriyi kasetde sak- 
lamak için önce | disc.in komutunu, bir önceki | tape.in komutunu geri almak için 
yazmak gerekir. Bundan da anlaşılacağı gibi | tape.in ve tape.out komutları | disc.in 
ve | disc.out komutlarını geri almak için; veya | disc.in ve | disc.out komutları | 
tape.in ve | tape.out komutlarını geri almak için kullanılır. Disk ve kasetle ilgili 
detaylı bilgileri ““disk ve kaset kullanmak”, “AMDSDOS ve CP/M” adlı bölüm- 
lerin 4 ve 5 nci konularında bulabilirsiniz. 
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Disk ve Kasete Program Kopya Etme 


Bu konunun 7. bölümünde, CP/M sistem disk paketinin oyüzündeki DİSCKIT3 
programını kullanarak yeni boş disketi formatlamayı öğrendiniz. Aynı zamanda 
bir diskden diğerine bir program kopya etmeyi de öğrendiniz. Şimdi aşağıdaki ko- 
mutlarla A sürücüsüne veya B sürücüsüne (kaset ünitesine) yüklemeyi kaydetmeyi 
yapabilirsiniz. 

I tape, | disk, | tape.in, | tape.out, | disc.in, | disc.out, la,lb 

Diğer komutlar; 


Idir,I drive,lera,lren, Il user 


Bunlar, konu S'deki ““AMSDOS ve CP/M” adlı bölümde anlatılacaktır. 


Disk'in Tamamını Kopya Etmek 


Bir diskin içeriğinin tamamı bir diğer disk'e CP/M sistem disk paketinin 1. yü- 
zündeki DISCKIT3 programı ile kopya edilebilir. 


Sistem disk paketinizin (yüzünü bilgisayarın disk sürücüsüne yerleştirin ve şunu 
yazın; 


I cpm 
A > hatırlatmasından sonra şunu yazınız. 
disckit3 


Birkaç saniye sonra ekranın üst tarafından DISCKIT açılış mesajını göreceksiniz. 
Bunu takiben; 


one drive found 
Bu mesaj size DISCKIT programını çalıştırdığınızı ve bilgisayarın, sizin sadece bir 
disk sürücüsüyle çalıştığınızı (bilgisayar üzerindeki) belirtir. 


Eğer sisteme ilave birdisk sürücüsü bağladıysanız mesaj şöyledir: 


Two drives found 
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Ekranın altında şunu göreceksiniz: 


Copy 
Format 


Verify 
Exit from program 


Bu DISCKIT ana seçeneğidir. Numaralar tuş takımının sağ tarafındaki fonksiyon 
tuşlarıdır; (f0, f1, f4, f7) ve bu tuşlardan birine basarak istediğiniz seçeneği seçersiniz. 
Şunu unutmayınız ki O nolu fonksiyon tuşuna basarsanız DISCKIT programın- 
dan çıkıp CP/M direkt konsol moduna geri dönersiniz. (A >) 


Şimdi biz diski kopya etmek istediğimizden 7 nolu fonksiyon tuşuna basacağız. 


DİKKAT 


DAHA ÖNCE KAYDEDİLMİŞ DİSKİN ÜZERİNE KOPYA ETMEK 
BU DİSKİN ESKİ MUHTEVİYATININ HEPSİNİ SİLER. 


1- Sürücülü Sistemde Kopya 


Sizin 1 sürücülü sistem kullandığınızı varsayarak ekranda şu mesajı görürsünüz. 


Any other key to exit menu 


Bu anda ana CP/M sistem diskinizi çıkartınız ve kopya çekeceğiniz diski (şayet 
CP/M sistem diskini kopya edecekseniz.) sürücüye yerleştiriniz. 


(Y, evet demektir ve anlamı “diski kopya etmeye başla”'dır) 


Disk'in formatı bilgisayarı tarafından incelenir ve ekranın üst tarafında bilginize 
sunulur. 
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Biraz sonra şu mesajı görürsünüz: 


Insert disc to WRITE 
Press any key to continue 


Bu noktada kopya edeceğiniz diski sürücüden çıkarınız; ve sürücüye kopya yapı- 
lacak diski sokup herhangi bir tuşa basınız. 


Diskin formatı hakkındaki bilgiler (üzerine kopya yapılacak diskin) ekranın üst 
tarafında belirtilir. 


Eğer üzerine kopya yapılacak disk doğru formatlanmamışsa (veya henüz format- 
lanmamışsa) bu kopya yapılırken dikkate alınır ve aşağıdaki mesajı görürsünüz: 


Disc isn't formatted (or faulty) 
Going to format while copying 
Disc will be system format 


Veya buna benzer mesajları kopya ederken alabilirsiniz. Bilgisayar diskten kopya 
almaya tekrar hazır olduğu zaman şu mesajı görürsünüz. 


Insert disc to READ 
Press any key to continue 


Kopya alınacak diski tekrar sokmanız gerekir. 


Bu işlemi birkaç defa yaptıktan sonra | nci diskin muhteviyatı 2 nci diske kopya 
edilmiş olur ve şu mesajı alırız: 


Copy completed (kopya tamamlanmıştır) 
Remove disc (diski çıkarınız) 
Press any key to continue (devam için herhangi bir tuşa basınız) 


Ekrana gelen bu talimatlar size yeni bir diski kopya etme seçeneği (Y'ye basarak) 
veya ana DISCKIT menüsüne dönmeyi sağlar. 


Yazı Koruma 


Biliyorsunuz ki yazı koruma deliği açık olan disklerin üzerine kopya yapılamaz. 
Eğer yapılmaya kalkılırsa: 


Disc write -potected (disk yazı korunmalıdır) 
Insert discto WRITE (YAZI için disk sokunuz) 
R-etry or C-ancel (Tekrar dene veya İptal) 


Yukarıda belirtildiği gibi iptal için C yazınız, diski çıkartınız ve yazı koruma deliği 
kapalı olan doğru diski kopya için koyunuz. 
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Saklamak istediğiniz programları ihtiva eden disklerin yazı koruma deliklerini ka- 
patmayınız ve CP/M sistem disk paketindeki disklerinizin HİÇBİR ZAMAN yazı 
koruma deliklerini kapamayınız. 


2- Sürücülü Sistemde Kopya 


Yukarıdaki bilgilerin ışığında 1. yüzdeki DISCKIT programını yükleyin, sonra DISC- 
KIT seçenek tablosundan f7 tuşuna basarak Copy seçeneğini seçiniz. 


Bu anda daha başka bir seçenek tablosu elde edeceksiniz. 


Read from A: 
Read from B: 


Exit menu 


2- Sürücülü sistemde sürekli olarak kopyası çıkartılacak ve kopya edilecek diskle- 
rin sokma ve çıkarma işlemleri olmayacak demektir. Yukarıdaki seçenek tablosu 
kopyasını çıkartacağımız diskin sürücüsünü seçme imkanı tanır. Sürücü A'daki 
diskten kopya çekmek için f8 tuşuna basınız. 
Üçüncü seçenek tablosu hemen önünüze gelir. 


Writeto A: 


KA 
Write to B: 6 | 


Exit menu 


Bu seçenek tablosu üzerine kopya yapılacak diskin sürücüsünün seçinimini bize 
sunar. Siz arzu ederseniz aynı sürücüyü (kopya yapılacak diskin durduğu) seçebi- 
lirsiniz. Fakat bu sürekli olarak diskleri değiştirmeniz demektir ki 2-sürücülü sis- 
temin avantajını kullanmamışsınız anlamına gelir. 


Büyük bir kolaylık ve sürat için f6 tuşuna basınız. (sürücü B'de duran diske kopya 
etmek için) 


Şimdi iki diski uygun sürücüye yerleştiriniz ve kopyaya başlamak için Y tuşuna ba- 
sınız. 


Bir kere daha her iki diskin format bilgileri ekranda görülecektir. Üzerine kopya 
yapılacak disk doğru olarak formatlanmışsa (veya henüz formatlanmamışsa) kopya 
çekilirken dikkate alınacaktır. 
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Kopya edildikten sonra aşağıdaki mesaj görüntüleri: 


Copy completed 
Remove both discs 
Press any key to continue 


Her iki diskide herhangi bir sonraki operasyondan önce çıkartınız. Daha sonra kop- 
yalama işlemine Y yazarak devam edebilirsiniz; veya ana DISCKIT seçenek tab- 
losuna herhangi bir tuşa basarak dönebilirsiniz. 


Disklerin Tetkiki 


DISCKIT3 programı aynı zamanda bir diskin tetkik edilme hizmetini size sunar. 


Diskin formatı ile ilgili bilgiler görüntülenir; ve diskin üzerindeki bütün dosyalar 
okunur. Dosyalardaki herhangi bir hata ekran üzerinde tesbit edilir. 


Bir diski tetkik için sistem disk paketinizin I nci yüzünü diske giriniz ve şunu yazı- 
niz. 


Icpm 
A > işleme hazır dan sonra aşağıdakini yazınız. 
disckit3 


Ana DISCKIT seçenek tablosunun tetkik kısmını fl tuşuna basarak seçiniz Ek- 
randaki talimatları takip ediniz. Eğer iki sürücülü sistem ile çalışıyorsanız size sü- 
rücü A veya sürücü B”deki diskli tetkik için seçenek verilecektir. Tetkiki istediğiniz 
diski girdiğinizde Y yazarak tetkike başlatınız. 


Tetkik bittiği zaman aşağıdaki mesaj görüntülenecektir: 


Verify completed 
Remove disc 
Press any key to continue 


Şayet siz 2-sürücülü sistemde çalışıyorsanız sizden her iki diski de çıkartmanız is- 
tenecektir ve herhangi bir işlem yapmadan önce bunu yapınız. Daha sonra tetkik 
işlemini Y yazarak tekrarlayabilir veya herhangi bir tuşa basarak ana DISCKIT 
seçenek tablosuna dönebilirsiniz. 
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DISCKIT Programını CP/M 2.2 de 
Kullanmak 


CPC664'de veya CPC464 4 DDIV'de (her ikiside CP/M 2.2 kullanır) yapılmış ve- 
ya yapılacak diskin format, kopya veya tetkikini isterseniz DISCKIT programı sistem 
disk paketinin 4 ncü yüzündedir. Programın adı DISCKIT2'dir. Aynı sebepten do- 
layı yukarıda bahis edilen DISCKIT3 gibi çalışır. 


DISCKIT2”'yi çalıştırmak için sistem disk paketinin 4. yüzünü bilgisayarınızın disk 
sürücüsüne sokunuz ve şunu yazınız: 


I cpm 
CP/M 2.2 işe başlama ve A > hazır mesajını aldıktan sonra şunu yazınız: 
disckit2 


Seçenek tablosundan tercihinizi yapınız ve daha önce bahis ettiğimiz DISCKIT3”deki 
gibi ekranda gözüken talimatları takip ediniz. 


NOT: Kopya esnasında DISCKIT2 ekran hafızasını veri için kullanır. Böylece kopya 
yapılırken ekranda rast gele şekiller görebilirsiniz. 


Ilave Bilgiler 
Ana CP/M sistem disk paketinizin sunduğu programların kullanılması hakkında- 
ki ilave bilgileri 4 ve 9. konular arasında bulabilirsiniz. 


Son olarak bu kitapçığın başında “ÖNEMLİ” başlığı altında verilen uyarıları bir 
kere daha gözden geçirin. 


MONTAJ BİLGİLERİ 5,6,7 
ÇALIŞTIRMA BİLGİLERİ 1,2,3,4,5,6,7,9 
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Bölüm 11: Bellek Bankası Yönetimi 
İkinci 64K Belleği Kullanmak 


CPC6128 64K”lık iki kısımdan meydana gelen 128'lık RAM (Random Access Me- 
mory) ihtiva eder. CP/M Plus bütün 128K”yı herzaman kullanır fakat BASIC nor- 
mal olarak ikinci 64K'yı kullanmaz sadece birinci 64K'daki kullanılabilir belleği 
kullanır. BASIC ile programlama yaparken 64K”lık ekstrayı tamamen kullanma- 
dan bırakmak çok üzücüdür. Bu nedenle program bu ekstra belleği özel olarak kul- 
lanabilecek gibi yapılmalıdır. Program 2. 64K”lık RAM'ın ya ekran görüntülerinin 
depolama yeri yada dizilerin depolama yeri olarak kullanılması için bağzı ekstra 
komutlar içerir. 


Bu ekstra komutları içeren program ““Bellek bankası yönetimi” diye bilinir. Bura- 
da banka teknikbir terim olup belleğin bir bölümü diye tarif edilebilir. 


BELLEK BANKASI Yönetimini Ekran Gö- 
rüntüleri İçin Kullanmak 


6128 ekran görüntülerini her zaman ekranda yansıtır. (Bunu yapmak için her bir 
pixel in renk ve parlaklık bilgileri için) 16K9lık bir belleğe ihtiyaç vardır. 6128'in 
belleği her biri 16K”lık bloklarda 6 ekran görüntüsüne müsaittir ve bunların hepsi 
herhangi bir zamanda bilgisayarın belleğinde bulunabilir. BELLEK BANKASI YÖ- 
NETİMİ sizin için BASIC'den mümkün olan 6 ekran görüntüsünden S'inin gö- 
rüntüye getirmenizi; oynamanızı kolaylaştırır. 


Bilgisayarı ilk açtığımızda ekran ilk 64K'da 16K blok bellek tarafından görüntü- 
lendirilir. (biz buna blok | deriz). Diğer 4 ekran 2'nci 64K'”lık bellekte tutulur ki 
biz bunlara blok 2, blok 3, blok 4, ve blok 5 deriz 


Normal olarak sadece blok 1 ekranda görüntülenebilir. (ilk 64K?'daki). Böylelikle 
2'nci 64K'da saklananları (blok 2'den 5?e kadar) ekranda görmek için gereken ek- 
ranı blok 1'e götürmek gerekir. BELLEK BANKA YÖNETİMİ ISCREENCOPY 
gibi bir komut ile bir ekranı hali hazırda; görüntüdeki ekranın üzerine yazdırarak 
bir ekranı diğer ekrana transfer yapar, veya ISCREENSWAP komut ile iki ekra- 
nın muhteviyatlarını değiştirir. 
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AMSDOS komutlarında olduğu gibi BELLEK BANKA YÖNETİMİ de “harici 
komutlar” kullanır ve bu komutlar çubuk sembolü (1) ile başlar (SHIFT ve © tu- 
şuna basınca) 


BELLEK BANKA Yönetiminin Kullanılması 


Bilgisayarı (CONTROLJ| (SHIFT)J (ESC) tuşlarına basarak reset ediniz ve sistem 
disk paketinin 1. yüzünü sokarak şunu yazınız: 


RUN “BANKMAN” 


Yükleme yöntemi 7. konunun 13. bölümünde RSX'de (Oturmuş sistem büyüme- 
si) detaylı olarak anlatılmıştır. RSX hakkında bir bilginiz olması ve bu işlemi prog- 
ramda kullanmadan önce bellek yeri saklamanız hakkında da bir bilginiz olması 
tavsiye edilir. Bununla beraber aşağıdaki örnekleri denemeniz için yükleme işle- 
mini anlamanıza gerek yoktur. 


MODE 1 


PRINT “THIS IS THE DEFAULT SCREEN” 
ISCREENSWAP, 1,2 


Metin kaybolacaktır. Şimdi siz ekran? (blok 2'de) saklananı görüyorsunuz. Eğer 
makina yeni açılmışsa muhtemel olarak rastgele şekiller göreceksiniz. Bu şekilleri 
temizlemek için şunu yazınız: 


MODE 1 
PRINT “THIS IS SCREEN 2” 
ISCREENSWAP, 1,2 


Orijinal metin tekrar görünür. Şimdi ISCREENSWAP, 1,2 komutunu tekrarlayı- 
nız iki ekranın yer değiştirdiğini göreceksiniz. Siz 5 ekrandan herhangi muhteviya- 
tının diğeriyle yer değiştirebilirsiniz fakat şunu aklınızda tutunuz ki siz sadece ekran 
Wdekini yer değiştirirseniz görüntü değişir. 


Diğer bir komuta ISCREENCOPY'dir. Bu komut size bir ekranı diğerinin üzeri- 
ne yeni görüntü olarak yazar ve kopya etmeyi sağlar. Aşağıdakini yazınız. 


MODE 1 
PRINT “BU BİR EKRAN KOPYASIDIR” 
ISCREENCOPY, 2,1 


Ekran I'in muhteviyatı ekran 2'ye kopya edildi. Şayet parametreleri aşağıdaki şe- 
kilde değiştirirsek: 
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MODE 1 
ISCREENCOPY, 1,2 


Ekranda görüntülenen içerik, ekran 2'den kopya edilen içeriktir. Birinci paramet- 
re üzerine kopya yapılacak ekrandır, ikinci ekran ise kopyası çıkartılacak ekran- 
dır. Ekranları kopya yaparken eğer ekranların modları farklı ise veya en son mode 
komutundan dolayı ekran görüntüsü yuvarlanmışsa parçalanmış bir görüntü elde 
edersiniz. BELLEK BANKASI YÖNETİMİ'nin ekran komutları metin ekranla- 
rından ziyade şekil ekranlarına yöneliktir, bu nedenle yuvarlanma daha az meyda- 
na gelir. 


BELLEK BANKASI Yönetimi'ni Dizi Saklan- 
masında Kullanmak 


BELLEK BANKASI YÖNETİMİ 4 adet daha komut ile 64K'lık ilave belleğin dizi 
değişkenlerinin dosyalama sisteminde kullanılmasını sağlar. Bir çok program iki 
kısma ayrılabilir. Birinci olarak normal program talimatları ve ikinci olarak da 
programın kullanacağı veriler. Veri temelli programa en güzel örnek adres rehbe- 
ridir. Bu tür program insanların adlarını ve adreslerini saklayacak dizi alanlarını 
kullanır. Diğer 64K'”lık bellekte birbiri peşisıra saklanabilir. Dizilerin içinde sak- 
landığı bellek kayıtlar diye adlandırılan bölümlere ayrılabilir. BASIC”deki dizinin 
boyunun içeriği ile ilgili olmasına rağmen bir kayıt sadece 2 ve 255 karakter ara- 
sında sabit bir uzunluk olabilir. Kayıtların amacı standart büyüklükte bölümler 
sunmaktır. Bir kayıttan tekrar bulma veya saklama gibi her operasyonda otoma- 
tik olarak bir sonraki kayıda geçme takip eder, bir sonraki işlem için hazırdır. Bir 
sonraki operasyon için kullanılacak kayıt ““geçerli kayıt”? (current record) diye ad- 
landırılır ve değişik bir kayıt tarif edilmemişse otomatik olarak kullanılır. Biz bu 
tip organizasyonuna ““RAM disk” deriz. Bunun sebebi RAM kullanıldığı halde 
random access disk sistemi ile aynı usulde çalışmasıdır. Aşağıdaki tarifleri okuyu- 
nuz. Böylelikle değişik komutların her birinin ne işe yaradığını nasıl kullanıldığını 
anlayacaksınız, şayet anlamayacak olursanız örneklerle çalışmaya devam ediniz. 
ilk RAM disk komutu IBANKOPEN'dur. Bu komut her kayıtın ihtiva ettiği dizi 
bilgilerin karakter sayısını belirler. Yazılımı: 


IBANKOPEN,n 


IBANKWRITE bir diziyi şimdiki kayıtta saklar. Şimdiki kayıt, yeni yazıların ar- 
kasındaki noktaya yükseltilir ve bir sonraki operasyona hazırdır. Yazılımı şöyledir: 
IBANKWRITE, ©r“/ ,a$ 

veya 


IBANKWRITE, ©r* ,a$,n 
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ro bir tam sayı (integer) değişkenidir şöyleki operasyonla ilgili verilen bilgilere geri 
gönderen bir koddur. a$, kayıta yazılacak karakterleri ihtiva eden dizi değişkeni- 
dir. Birinci örnekde kayıt, şimdiki kayıttır. ikinci örnekten yazılacak kayıtı belir- 
leyen parametredir. 


IBANKREAD, şimdiki kayıtı inceler ve muhteviyatını diziye geri götürür. Şimdi- 
ki kayıt, henüz okunmuş kayıtın arkasındaki noktaya yükseltilir ve bir sonraki ope- 
rasyona hazırdır. Kayıtın muhteviyatını okumak, onu değiştirmez, böylelikle kayıt 
tekrar tekrar okunabilir. Yazılımı ise: 


IBANKWRITE, ©r*h ,a$ 
veya 


IBANKWRITE, ©rb,a$,n 


ro tamsayı değişkenidir ki operasyon ile ilgili verilen bilgilere geri döndüren bir 
koddur. a$ kayıt muhteviyatından okunan dizi değişkenidir. İlk örnekde kayıt şim- 
diki kayıttır. İkinci örnekte n parametresi hangi kayıtın okunacağını belirtir. 


Son komut IBANKFIND'dır. Bu komut özel bir diziyi bulmak için kayıtları araş- 
tırır. Diziyi bulduğu kayıt nosuna geri getirir. Yazılımı ise şöyledir: 


IBANKRAED, &r,a$ 
veya 


IBANKREAD, Or ,a$,n 
veya 


IBANKFIND, ©r*/,a$,n,m 


r“o bir tam sayı değişkenidir ki kayıt numarası (dizinin bulunduğu) veya kod bu- 
lunmadığını bildirdiği zaman geri döner. a$ aranan dizidir. Seçilebilir parametre 
n hangi kayıttan aranmaya başlandığını belirtir. Eğer n belirlenmemişse arama şim- 
diki kayıttan başlar. İkinci seçmeli parametre m bir kopya bulamasa dahi hangi 
kayıtta aramayı durduracağını belirtir. Eğer belirlenmemişse arama yazdığımız veri 
bitse bile bütün 64K boyunca devam eder. Bunu deneyin. Eğer sizin işletilen bir 
BELLEK BANKA YÖNETİM programınız varsa ekran değiş tokuş komutlarına 
bakınız; ve bilgisayarı resetlemeden sonra bellekte hali hazırda yerleşmiş ekstra ko- 
mutlara da bakınız. Eğer bu programınız yoksa sistem disk paketinizin 1 nci yüzü- 
nü sokunuz ve şunu yazınız: 
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RUN “BANKMAN” 


Arkasından aşağıdakini yazınız: 


IBANKOPEN, 20 


Bu uzunluğunu 20 karakter ayarlar ve şimdiki kayıtı a ayarlar. Şimdi de aşağı- 
dakini yazınız. 


©$-“FIRST ENTRY” 4 SPACEŞ(9) 


a$'ı 20 karakter uzunluğa ayarladı. Şimdi de şunu yazın 
rh 0 
rWo'nin başlangıcını veriyor. Aşağıdakini yazınız. 


IBANKWRITE, Or, 0$ 


Bu a$'ı 1. kayıda (kayıt 0) yazar. Aşağıdakileri yazın. 


d$ — SPACE$(20) 
IBANKREAD, Or ,d$,9 
PRINT d$ 


İlk komut D$'a 20'lik bir alan ayırdı. Bu kayıt okunduğunda kayıt muhteviyatını 
ihtiva edecek yeterli bir yerdir. İkinci komut O numaralı kayıdı okur ve sonucu 
da yerleştirir. Şimdiki kayıt, kayıt Ie atladı (daha önceki IBANKWRITE ope- 
rasyonundan dolayı) ve kayıt 1 okunacak kayıt olarak belirlemek gereklidir. Unut- 
mayın ki hiçbir kayıt nosu belirtilmemişse şimdiki kayıt okunur. Son olarak, okuma 
operasyonunun sonucu yazılır. Bundan dolayı d$, “FRIST ENTRY”yi ve 9 boş- 
luk ihtiva etmelidir. 

Şimdi aşağıdakileri yazınız: 


b$ —“TWO” 4 SPACE$(17) 

c$ “THERE” 4 SPACEŞ$(15) 

IBANKWRITE, &r*/ ,b$,1 

IBANKWRITE, ©r*/ ,c$ 

Bu b$ ve c$'ı kayıt 1 ve 2'ye koyar. Tekrar birinci IBANKWRITE komutndaki seç- 
meli parametre kullanılır ve kayıt 1'in b$'ın yerindeki kayıt olarak belirtir. Şirüiki 
kayıt numarası bundan sonra gelen kayıda ayarlanmış ve otomatik olarak kayı: 
2'ye yerleştirilir. 

Aşağıdakini yazınız: 


PRINT r*/ 


81 


Yukarıdaki örnekten sonra rVo yazmanın sonucu dir. Bu rakkam son çalışan kayıt 
olarak veya şimdiki kayıt -1 olarak ele alınabilir. Yukarıdaki örnekde son çalışmış 
olan kayıt 2 idi ve sonraki kayıt 3 olacaktır. 


Bu “geridönme kodu”nun amacı henüz tamamlanmış operasyon hakkında bilgi 
edinmektir. Başarılı bir operasyon kayıt nosunu belirten pozitif rakkamlar ile geri 
döner; başarısız bir işlem ise hata kodunu belirleyen bir negatif numara ile geri 
döner. BANKWRITE ve IBANKREAD tarafından geri dönen iki hata vardır. Bun- 
lar: 


-1 Ulaşılan dosyanın sonunu gösterir. Bütün kayıtları kullandığı zaman veya be- 
lirtilmiş kayıt var olmadığı zaman bu durum meydana gelir. 


-2 Banka anahtarlama başarısızlığı gösterir. Bu hiç bir zaman olmamalıdır. 
Aşağıdaki örnekleri deneyin: 


d$ —STRING$ (20,““X”) 
IBANKOPEN, 20 
FOR n—1 to 3:IBANKWRITE, ©r9o ,d$:NEXT 


Bu d$'ın 20 x ihtiva etmesini sağlar. IBANKOPEN şimdiki kayıdın 9 olması için 
resetler ki IBANKWRITE komutu kayıt 0,1 ve 2'nin muhteviyatının üzerine d$ 
yazmasını sağlar. Şimdi şunu yazınız. 


a$—“FRIST” 
IBANKWRITE, &rh ,a$,9 


Bu “FIRST” kelimesini kayıt (a bazı Xx lerin üzerine yazarak koyar. Şimdi d$”ı 
boşluk için resetleyin. 


d$ — SPACE$(20) 


Aşağıdaki komutu yazınız: 


IBANKREAD, &r*h ,d$,0 


Bu, d$'ın içine kayıt #1 geri okur. 

Bütün üç kayıt Xx leri ihtiva eder. Kayıt ('a “FIRST” kelimesi ilave edilmiştir. 
d$ boşluk ile doldurulmuştur. Son olarak kayıt 9 d$'ın içine geri okunmuştur. Şimdi 
aşağıdakini yazalım: 


PRINT d$ 
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Sonuç “FIRSIX XXXXXXXX XX Xxx Xxx” olacaktır. Bu yukarıdaki ko- 
mutları kullanırken önemli bir mütelayı tarif eder. Eğer bir kayıta konan dizi bu 
kayıtı tamamen doldurmuyorsa üzerine yazılmayan eski karakterler kayıtta kalır. 
Bu sebepten dolayı kayıda yeni bilgiler saklanmadan önce ya boşluk dizisi koyma- 
lu yada CHR$(32) konmalı. Bu içinde hâlâ bulunması istenmemiş karakterlerin bu- 
lunmasını ve dizinin geri okunmasını bertaraf eder. Aynı mütalaa diziye okunacak 
kayıt içinde yapılabilir. Eğer dizi kayıdın boyundan uzun ise dizinin sonundaki ka- 
rakterler değişmeden kalır. Kayıt Wın d$*a okunmadan önce d$'ın temizlenmesi 
(boşluk doldurulması) bu sebepten dolayıdır. 


Bir diziyi bu dizinin tamamını alamayacak kadar kısa bir kayıtla yazmak da müm- 
kündür. Bu durumda artan karakterler ihmal edilir. 


Aynı şekilde uzun bir kayıdın içeriğini kısa bir diziye okumak da mümkündür. Yi- 
ne artan karakterler (kayıttan okunan) ihmal edilecektir. Normal dizi işlemlerinde 
BASIC bütün karakterleri kabul etmek için harici komutlar kullanmak gerekir. 


Son olarak IBANKFIND komutu. Bu komut kısmı bir girdi için kayıdın aranma- 
sına izin verir. Örneğin eğer kayıt numarası 24 “FRED” kelimesi ile başlıyorsa 
bu aşağıdaki komut ile bulunabilir: 


IBANKFIND, Or “FRED” 


Bu işlem adres ve isim aranması gerektiren veri bazlı programlarda çok faydalı 
olur. 


IBANKFIND şimdiki kayıttan başlar ve araştırılan dizi bulununcaya kadar kayıt 
da çalışmaya devam eder; veya kayıtların saklandığı ikinci 64K'nın sonuna kadar 
çalışır. 


Komutun sonuna kayıt numarası ilave ederek nereden başlayacağını belirler. 


Başlangıç kayıt numaralarından sonra konulan kayıt numarası ilave edilebilir; ve 
bu aramanın nerede sona ereceğini belirler. 


IBANKFIND kayıdın başlangıcına yerleşmemiş diziyi aramakta da kullanılır. Bu- 
nun için CHR$(0) aranacak kanalı karakterden önceki karakter pozisyonunda kul- 
lanılır. CHR$(0) “wildcards” gibi ele alınır. (CP/M dosya isimlerindeki ? işaretleri 
gibi) anlamı herhangi bir karakter gibi sayılmalarıdır. Bir örnek olarak aşağıdaki- 
ni verebiliriz: 

a$ - STRING$(10,0) * “FRED” 

IBANKFIND, ©r9/ ,a$9 
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Bu “FRED” kelimesinin ilk gözüktüğü yeri bulur (11'nci de 14 ncü karakter po- 
zisyonunda durmaktadır.) İlk 10 karakter telefon numaralarını veya diğer bilgileri 
ihtiva eder ki IBANKFIND bunu değerlendirmez. 


Dizinin bulunduğu tam sayı değişkeni r9o?ye yerleştirilmiş kayıt numarası geri dö- 
nüş kodu olarak kullanılır. (eğer “FRED” kelimesi bulunmuşsa) aksi takdirde ge- 
ri dönüş kodu -3 ihtiva eder. 


İlave Detaylar 


BELLEK BANKASI YÖNETİMİ hakkında daha geniş bilgileri 8'nci konuda bu- 
labilirsiniz ve ?nci konunun 13”ncü ve 14'ncü bölümlerinde RSX'in kullanımı da- 
ha detaylı olarak anlatılmıştır. 


ÇALIŞTIRMA BİLGİLERİ 1,2,3,9 


CPC 6128'in 11 bölümlük teme kursunu bitirmiş bulunuyorsunuz. Şimdi siz tuş- 
takımındaki birçok tuşun ne işe yaradığını, basit BASIC KOMUTLARININ NA- 
SIL kullanılacağını, yeni diskin kullanmaya hazırlanması için nasıl formatlanacağını 
bazı temel disk fonksiyonların gerçekleştirileceğini (örneğin LOAD, SAVE, CAT, 
vs.) biliyorsunuz. 


Bundan sonraki konu AMSTRAD BASIC ve hesaplamalara daha özel bir bakış 
açısı kazandıracaktır. 


AMSDOS ve CP/M bölümlerinden ünitenin disk sürücü bölümleri için derin bir 


başvuru bölümü hazırlanmıştır ve Digital araştırmadan Dr. LOGO adlı yeni bir 
bilgisayar lisanıyla tanışacaksınız. 
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KONU 2 | 
Temel Kursun llerisinde 


Siz temel kursu okudunuz ve bilgisayarınız açık olarak önünüzde duruyor. FOR 
NEXT çevriminin nasıl yapıldığını ve IF THEN kullanarak şartları incelemeyi ve 
doğru ise herhangi bir şeyi yapmayı öğrendiniz. 


Siz, bütün ekranda adınızı görmekten sıkılmış olabilirsiniz ve faydalı veya eğlen- 
dirici olan ciddi hesaplamalar yapmak isteyebilirsiniz. Bundan sonra AMSTRAD 
BASIC komutlarının listesini sizin idareniz için yazılmış tarifleriyle verecek ve hangi 
komutun ne için kullanıldığını tarif edeceğiz. Bu listeyle kuşanmış olarak bilgisa- 
yara yaptırabileceğiniz şeyler sadece sizin tasavvurunuzla sınırlanmıştır. 


Eğer daha önce bilgisayar kullanmamışsanız, programcılık sizi ürkütebilir. Fakat 
bu sizin düşündüğünüzden daha kolaydır. Şimdi BASIC'in yeni bir lisan olmadı- 
ğını fakat bazı şeylerin hızını yükseltmek için İNGİLİZCE”deki bazı sözcüklerin 
kısaltılmışı olduğunu düşünün. Diğer bir deyişle CLS'nin 3 harflik sihirli bir kod 
olmayıp sadece Clear Screan (ekranı temizle) olduğunu düşünün. 


Nereden Başlayalım. 


Yeni başlayanlar, için programa başlamak en zor kısımdır. Yapacağınız ilk şey prog- 
ramın ne yapmasını istediğiniz ve sonuçların size nasıl verilmesini istediğinize ka- 
rar vermenizdir. 


Buna karar verdikten sonra istediğiniz şartları yerine getiren programı yazmaya 
başlayabilirsiniz. Daima, programda enaz sayıda GOTO kullanarak, programın 
baştan sona pürüzsüz bir şekilde akmasını nasıl sağlayacağınızı düşünün. İyi bir 
program liste edildiği zaman kolaylıkla takip edilebilen ve hatadan ayıklarken (de- 
bug) veya hata bulurken sizi ümitsiz bir karışıklığa itmeyen programdır. 


BASIC çok hoşgörülü bir dildir ve çoğunlukla size yanlışlık yaptığınızda ekranda 


hata mesajı çıkararak yardım eder. BASIC sizin sonradan düşündüklerinize de ilave 
imkanı tanır ve yeni satırları hali hazırda bulunan satırların arasına sokabilirsiniz. 


Basit Bir Program Yazımı 


Şimdi adları ve telefon numaralarını tutacak bir program yazalım. Programı ““TE- 
LEFON REHBERİ” diye adlandıralım. Şimdi yukarıdaki kaideleri uygulayalım: 
“Program ne yapacak?” ve “Sonuçları bize nasıl sunulacak?” 
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Program 100 isim ve telefon numarası girmenize ve saklamanıza müsait olacaktır. 
Telefon numarasına ihtiyacınız olduğunda adı yazmakla numarayı geri alabilecek- 
siniz. Buna ilave olarak isimlerden birin nasıl girdiğinizden emin olmadığınız za- 
man bütün bilgilerin ekranda görünmesini sağlayacağız. Dikkat ederseniz otomatik 
olarak sonuçların nasıl sunulacağı sorusuna da cevap vermiş olduk. 


Başlangıç olarak programın ismini yazalım. 


19 REM telefon rehberi 


Daha sonra adları, (karakter dizisi) değişken adı NAME$ olan değişkenlere gire- 
ceğiz. (INPUT) Aynı şekide telefon numaralarını TEL$ adlı değişkenlere girece- 
giz. 


20 INPUT “ismi giriniz”; NAME$Ş 
30 “telefon numarasını giriniz”; TEL$ 


örneğin; Ahmet adını ve telefon numarasını da 1602948 diye girdiniz. 


Program bilgileri sakladı fakat ekranda herhangi bir değişiklik olmadı. Bu bilgile- 
ri bulup getirecek ve yazacak NAME$ ve TEL$ değerlerini elde etmek için aşağı- 
daki komutu kullanınız. 


PRINT NAME$.....ve..... PRINT TEL$ 


Biz 100'er adet isim ve telefon numarasını programda saklamak istiyorduk. Tabii 
ki programa 100 adet INPUT komutu yazmayacağız. Bilgisayar bu durum için bir 
dizi tedarik eder ve bu dizi herhangi bir boyut numarası olan bir değişkeni (NAME$) 
kullanmamıza müsaade eder. Değişkenin içeriğini istediğiniz zaman, değişkenin adını 
takip eden parantez içinde bir referans numarası kullanırsınız. Bu referans numa- 
rasının adı (subscript) “altyazı”*dır ve NAME$(27) ifadesi altyazılı değişkendir. 
Eğer biz sayı değişkenini, altyazı olarak kullanırsak (örneğin: NAME$( x )) bir FOR 
NEXT çevrimi ile 1*den 100'e kadar, x değerini değiştirerek bütün değişkenlerin 
listesini yazdırabiliriz. Xx değeri 1 artınca altyazı değeride değişecek ve NAME$ 
dizisinde değişik bir isim olacaktır. 


İki dizi istediğimizden (NAME$ ve TEL$) her birinin boyutu 100 eleman olacak- 
tır. Diziyi kullanmadan önce DIM komutunu koymanız gerekir. 


20 DIM NAME$ (190) 

30 DIM TEL$ (1090) 

Değişkenlerimizi belirledikten sonra öncelikle adları ve numaraları bu diziye ko- 
yacak bir program yazalım. 
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40 FORXx —1TO 100 

50 INPUT; “Adı Soyadı”;NAME$/ x ) 

60 INPUT “Telefon numarası”;TEL$( x ) 
70 NEXT 

run 


Bütün bunlar yapıldı fakat biz tüm isimleri bir seferde girmek istemeyebiliriz. Bun- 
dan başka programın ekrandaki görüntüsü göze pek hoş gelmiyor, ekrandaki faz- 
lalıklardan kurtulmalıyız. Bunun için şu satırı ekleyin. 


45 CLS 


Şimdi bilgisayarın bizim giriş bilgilerimizi bitirip bitirmediğimizi anında anlama- 
sını nasıl sağlayacağız? (ESC)J tuşuna basarak programı durdurabiliriz fakat RUN 
yazdığımızda verdiğimiz değişkenlerin tamamı kaybolur. 

Yukarıda bahis ettiğimiz yöntem yerine, program yeni isimleri girdi olarak alırken 
biz herhangi birşeyin, NAME$( x)in değeri yerine yazılıp yazılmadığını kontrol 
eden bir program yazabiliriz. Diğer tabiriyle NAME$( x ) değerinin boş dizi olup 
olmadığını kontrol edeceğiz. Bunu nasıl yapacağımız hakkında bir ipucu yakala- 
dınız mı? Şimdi aşağıdakileri yazınız. 


55 IF NAME$(x)“” THEN 80 
80 PRINT “Başka girdi yok” 


Program size girişleri nasıl durdurabileceğinizi de söyleyebilir. Şöyleki; 

47 PRINT “girişleri durdurmak için (RETURN) basın)” 

Şimdi sakladığınız bilgileri “PRINT?”? edecek bir programa geçelim. 
90 FOR x —1TO 100 

190 PRINT NAME$/ x );TEL$( Xx) 

119 NEXT 


Yine program 100. elemana gelmeden nerede duracağını bilmiyor, şunu ekleyelim: 


95 IF NAME$(x)-“” THEN 120 
129 PRINT “Liste bitti” 


95. satır NAMEŞ( Xx ) in boş dizi olup olmadığını kontrol eder ve IF THEN komur- 
tuyla 100 ve 110. satırı atlayarak yazmaya son verir. 


Bundan sonraki ihtiyacımız, girilmiş herhangi bir ismi arayacak olan programdır. 
Aşağıdakini yazınız. 
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139 INPUT “bul”;SEARCH$ 

140 FOR x <-1TO 100 

159 IF INSTR (NAME$) ( x),SEARCH$) - 0 THEN 180 
160 PRINT NAMEŞ( x);"** *TEL$( Xx) 

170 END 

180 NEXT 

190 PRINT “ad bulunamadı” 

run 


150. satırdaki INSTR komutu bilgisayara 2. dizi ifadesinin ilk görüldüğünü bul- 
mak için 1. dizi ifadesini sorguya çek der. Diğer bir deyişle SEARCH$ için NAME$'ı 
araştırır. (SEARCH$ değişkeni 130. satırdadır ve aranan adı içerir) Eğer INSTR 
aradığını bulamazsa 0 değerini verir ve programda 100. satıra geçer, x'in bir son- 
raki değeriyle bir daha dener. Program x'in 100'e kadar olan değerlerinin hepsın- 
den geçmişse 190. satıra devam eder. INSTR, 9 değerini meydana getirmezse 
program 150. satıra geçer buradan 160'a adı ve telefon numarasını yazar, 170. sa- 
tırda son bulur. 


Gördüğünüz gibi programımız oldukça hızlı gelişiyor fakat daha yapılacak çok iş 
var. Yaptığımız işleri bir daha hatırlayalım. Önce bilgiyi veriyoruz, sonra listeyi 
geri alıyoruz ve belirttiğimiz bir ismi arıyoruz. 


Eğer bunu bir sırada yapmak istemiyorsak, eskiden kaydedilmiş bir ismi arayacak 
olursak, listeye başka isimler ilave edeceksek ne olacak?. Bütün bu görüşleri dü- 
şünmeli ve çözümlerini bulmalısınız. 


Bu programdaki diğer bir problem de bilgisayarın hafızasında saklanan verilerin 
tekrar RUN yapılmasıyla silinmesidir. Bu da istenmeyen bir durumdur. 


Çözüm 


Programı ne şekilde yazmak gerekir ki çalıştığı zaman değişik fonksiyonlardan se- 
çim yapılınca bu seçimi çalıştırabilsin. Bu tip programlara “seçenek tablosu 
sürücüsü” (menü) denir ve seçim için ekranda gösterilir. Şimdi yukarıdaki prog- 
rama seçenek tablosu ekleyelim. 


32 PRINT “1. bilgiyi gir” 

33 PRINT “2. bilgi listesi” 

34 PRINT “3. arama” 

35 PRINT “4. bilgi saklanması” 

36 PRINT “5. bilgiyi yükle” 

37 INPUT “seçeneğinizi giriniz”;ms 
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38 ON ms GOSUB 40,90,130 
85 RETURN 

125 RETURN 

170 RETURN 

200 RETURN 


Gördüğünüz gibi programa seçenek tablosu eklendi. Bu durumda ms değişkenine 
seçiminizi girebilirsiniz. 38. satırda ON ms GOSUB komutu programa eğer ms — | 
ise ilk alt program satır numarasına (40.satır), ms — 2 ise 90 satır numaralı alt prog- 
ramına gitmesini söyler ve böylece bu iş ms'in alacağı değerlere göre devam eder. 


Şimdi her fonksiyonun bulunduğu alt program ON ms GOSUB ile çağrıldığından 
hepsine birer RETURN komutu ilave etmemiz gerekir. 


RETURN komutunun ne işe yaradığını hatırlıyormusunuz? Alt programdan son- 
ra hemen GOSUB komutunu izleyen satıra geri döner. Yukarıdaki örnekte 38. sa- 
tırdan sonra gelen 40. satıra geri döner ve proram buradan çalışmaya devam eder. 
Biz bunu istemediğimiz için şu satırı programa ilave edeceğiz. 


39 GOTO 32 


Bu durumda program geriye döner ve ekrana menüyü çıkartır. Şimdi programı 
tekrar çalıştıralım ve ne kadar ilerlediğimizi görelim. 

Daha önce programın listesini alalım ve program hâlâ çalışıyorsa |(ESCJ tuşuna 
iki defa basarak durduralım. Program durunca şunu yazınız. 


LIST 


19 REM telefon rehberi 

20 DIM NAME$(149) 

30 DIM TEL$(199) 

32 PRINT “1. Bilgiyi gir” 

33 PRINT “2. Bilgi listesi” 

34 PRINT “3. Arama” 

35 PRINT “4. Bilgi saklanması” 

36 PRINT “5. Bilgiyi yükle” 

37 INPUT “seçenek tercihinizi girin”;ms 
38 ON ms GOSUB 40,99,139 

39 GOTO 32 

40 FOR x -1 TO 100 

45 CLS 

47 PRINT “girişleri durdurmak için RETURN'e basın” 
50 INPUT; “Adı Soyadı”; NAME x) 
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55 IF NAME$(x)“” THEN 80 

60 INPUT “Telefon numarası”;TEL$( x ) 
70 NEXT 

80 PRINT “Başka girdi yok” 

85 RETURN 

90 FOR x -1TO 194 

95 IF NAME$(x)—“” THEN 120 
19ğ PRINT NAME$( x);“ *TEL$( Xx) 
119 NEXT 
120 PRINT “Liste bitti” 

125 RETURN 
139 INPUT “bul";SEARCH$Ş 

14ğ FOR x -1TO 199 

150 IF INSTR (NAME$( x), SEARCH$) -9 THEN 180 
160 PRINT NAME$/ x);** *TEL$( x) 

170 RETURN 

180 NEXT 

190 PRINT “ad bulunamadı” 

200 RETURN 


Programın bazı yerlerine yeni komutlar sıkıştırdık. RENUM komutu ile satırları 
tekrar numaralandıralım ve sıkışık kısımları açarak yeniden düzenleyelim. Aşağı- 
daki komutu yazınız. 


RENUM 
LIST 


Bilgisayar listeyi şöyle verecektir. 


19 REM telefon rehberi 

20 DIM NAME$(190) 

30 DIM TEL$(100) 

49 PRINT “1. Bilgiyi gir” 

50 PRINT “2. Bilgi listesi” 

60 PRINT “3. Arama” 

70 PRINT “4. Bilgi saklanması” 

80 PRINT “5. bilgiyi yükle” 

94 INPUT “seçenek tercihizi girin”;ms 
1g ON ms GOSUB 129,219,270 

119 GOTO 40 

120 FOR x —1TO 190 

130 CLS 

149 PRINT “girişleri durdurmak için RETURN'e basın” 
150 INPUT “Adı soyadı”;NAME$/ x ) 
160 IF NAME$(x)—“” THEN 194 
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170 INPUT “Telefon numarası”;TEL$( x ) 
180 NEXT 

190 PRINT “Başka girdi yok” 

200 RETURN 

210 FOR x -1TO 190 

220 IF NAME$(x)—“” THEN 250 

230 PRINT NAMEŞ$(x):“* *TEL$( Xx) 

240 NEXT 

250 PRINT “Liste bitti” 

260 RETURN 

270 INPUT “bul”; SEARCH$ 

280 FOR x -1TO 190 

290 IF INSTR (NAMEŞ/ x ),SEARCH$) -9 THEN 320 
300 PRINT NAMEŞ$( x);** “TEL$( x) 

310 RETURN 

320 NEXT 

330 PRINT “ad bulunamadı” 

340 RETURN 


Program şimdi daha iyi bir şekle girmiştir fakat bir komut ilave etmemiz gerek- 
mektedir. Bu komut herhangi bir yeni isim ve telefon girdiğimizde, bilgisayara bunu 
boş bulduğu dizinin ilk elementi olarak yerleştirip hali hazırda bulunan kayıta ila- 
ve ettirecektir. Bunun için LEN komutunu (dizinin boyunu bildir) kullanacağız. 


Eğer ad değişkenlerinin uzunluğu sıfırdan büyükse, yani eleman dizisinde bir ka- 
yıt varsa 180. satıra gitmesi lazımdır. 


135 IF LEN (NAME$(x))>0 THEN 180 


Daima, programlama ihtiyaçlarınıza yardımcı olacak enaz bir komut vardır ve ne 
kadar çok program yaparsanız çözümler o kadar kolaylaşacaktır. 


Bu sefer program çalıştırıldığı zaman değişkenlerin muhteviyatının geri yüklene- 
bilmesi problemi ortaya çıkmıştır. Temel kursun 7. bölümünde SAVE komutunu 
kullanarak programı nasıl saklayacağımızı görmüştük. Programda değişken de- 
gerleri (tuş takımından) girilir ve ekrandan geri alınır. Yani programı SAVE ko- 
mutu ile sakladığınız zaman girdiğiniz değişken değerleri saklanmaz. Bundan dolayı 
öyle bir program bölümü yazmalıyız ki değişken değerlerini diskin üzekinde sak- 
layabilsin. Bunuda ayrı bir ““veri dosyası”? yaratarak sağlarız. 


Önce bir çıkış (OUTPUT) dosyası açarız (OPEN) ve bir isimle (örneğin ““data”) 
belirleriz. Daha sonra değişkenlerin (NAME$( x ) ve TEL$( x )) değerlerini 1”den 
100'e kadar dosyaya yazarız (WRITE) ve son olarak çıkış (OUTPUT) dosyasını 
kapatıp (CLOSE) seçenek tablosuna geri (RETURN) döneriz. Bu programı 350. 
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satırdan itibaren ilave edelim. Her yeni satır numarasını yazmamak için aşağıdaki 
komutu kullanılım. 


AUTO 359 
Bu komut satırları otomatik olarak 350'den itibaren numaralandırır. 


350 OPENOUT “data” 

360 FOR x —1 TO 100 

37/9 WRITE # 9, NAME$/ x), TEL$( Xx) 
380 NEXT 

390 CLOSEOUT 

409 PRINT “data saklandı” 

419 RETURN 


410. satırı yazdıktan sonra (ESC) tuşuna iki defa basıp otomatik numuralandır- 
mayı durdurunuz. 

Seçenek tablosuna birkaç tercih ilave ettiğimiz için 100. satırdaki ON ms GOSUB 
komutuna ilgili satır numaralarını eklemeliyiz. 


10 ON ms GOSUB 129,219,270,350 


Seçenek tablosundan 4. maddeyi seçtiğiniz zaman bilgisayara girdiğiniz tüm bilgi- 
ler saklanacaktır. 


370. satırda WRITE komutundan sonra # 9 ifadesi kullanıldı. Bu ifade bilgisaya- 
ra hangi akıntının ““data”yı götüreceğini belirtir. Bilgisayarın 10 akıntısı vardır. 
Verileri 9 ve 7 akıntılarına yöneltmenin sonucu, verilerin ekrana çıkartılmasıdır. 
Çünkü #9 ve # 7'ye kadar olan ekran akıntısı WINDOW'dur. 


Verileri #8 akıntısına gönderirseniz, printeriniz çalışır. 


Son olarak verileri #9 akıntısına gönderirseniz, 370. satırda olduğu gibi bilgiler disk 
sürücüsüne gider. 


Eğer satır numaralarını hariç bırakacaksak aşağıdakini yazınız. 


AUTO 


Bilgisayar her (RETURN) tuşuna basıldığında 10*dan başlayarak ve 10'ar arttıra- 
rak satırları numaralar. Daha önce 10,20,30 vs. satırlarını kullandıysanız (RETURN 
tuşuna her basışınızda bu satırlar ekranda görülür. Her satır ekranda görününce, 
satırlarda çabuk ve devamlı düzeltme yapmak için (RETURN) tuşuna basılmadan 
bu işlem yapılmalıdır. 


92 


Programa Geri Dönüş 

Daha evvel bilgileri diskde saklamayı yapmıştık. Şimdi ise yapacağımız verilerin 
diskden geri yüklenmesidir. Bu nedenle 100. satırdaki komuta yeni bir ilave yapa- 
cağız. Bunun için 100. satırı şöyle düzeltelim. 


100 ON ms GOSUB 124,219,279,359,424 

Önce diskden “data” ismi ile bir giriş dosyası açalım. Daha sonra tüm değişken 
değerlerini ihtiva eden girişleri #9 akıntısı ile alalım, son olarak giriş dosyalarını 
kapatalım ve menüye geri dönelim. 


420 OPENİIN “data” 

430 FOR x -1 TO 199 

440 INPUT #9, NAME$( x),TEL$( x) 
450 NEXT 

460 CLOSEIN 

470 PRINT “data yüklendi” 

480 RETURN 


Başlangıcın Sonu 


Böylelikle biz gerekli bütün şartlara haiz ve ne yapması gerektiğini seçebileceğimiz 
bir program yazdık. Bütün geri kalan ise neticeleri ekrana çıkartmaktır. 


Sonun Başlangıcı 


Programın görüntüsünü düzenlemek için bazı eklemeler yapalım. 
34 MODE 1 


Bu ekran modunu sağlar ve programın başında ekranı temizler. Şimdi de şu satırı 
girelim. 


36 WINDOW # 1,13,30,10,14 


Burada yapılan, menüyü içine yerleştirmek için ekranda küçük bir pencere açmaktır. 
#1, pencerenin akıntı numarasını belirler. Akıntı numarası belirtilmediği takdirde 
ekrandaki tüm görüntüler #9 ekran akıntısı kullanılarak yapılmıştır. #1 ifadesini 
dört adet rakam takip etmektedir. Bunlar bilgisayara sırası ile sol, sağ, üst ve alt 
kenar olarak pencere boyutlarını bildirir. Bu komutlar aynı LOCATE komutun- 
da olduğu gibi satır ve kolon numaralarıdır. Örnekte; pencerenin sol kenarı 13. 
kolondan başlıyor, sağ kenarı 30. kolonda sona eriyor, üst kenar 10. sıradan baş- 
lıyor ve 14. satırda sona eriyor. 
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Şimdi bizim seçenek tablosunu #1 Akıntısını yazalım. Bunun için 40,50,60,70 ve 
80. satırları değiştirelim. 


40 PRINT #1, “1.Bilgiyi gir” 

50 PRINT #1, “2. Bilgi listesi” 

60 PRINT #1, “3. Arama 

70 PRINT # 1, “4. Bilgi saklanması” 
89 PRINT # 1, “5. Bilgiyi yükle” 


Bir de şu satırı ekleyelim. 


85 LOCATE 7,25 


Bu seçenek tablosu giriş cümlesini 90. satıra yerleştirir. 


Seçenek tablosuna geri dönüldüğünde ekranın temizlenmesi için aşağıdaki ilaveyi 
yazalım. 


11ğ GOTO 34 


Seçenek tablosundan tercih yapıldığında ekranın temizlenmesi için şu satırı ekle- 
yelim. 


95 CLS 


Son olarak aşağıdaki üç satırı seçenek tablosuna geri dönmeden programı bekle- 
meye almak için ilave edelim. 


193 LOCATE 9,25 
195 PRINT “menü için herhangi bir tuşa basın” 


197 IF INKEY$—““*” THEN 197 


103. satır bilgisayara 105. satırdaki mesajı nereye yazacağını belirtir. 107. satır tuş 
takımına basılıp basılmadığını kontrol eder. Bu yöntem programa ara vermek için 
kullanışlı bir yoldur. Bu sayede BASIC bir tuşa basılıncaya kadar bir sonraki satı- 
ra geçmez. 


Programımız tamamen bitmiş durumdadır. Siz programı daha iyi bir hale sokabi- 
lirsiniz. Adları ve telefon numaralarını silebilir, alfabetik sıraya sokup yazıcıdan 
liste alabilir, bilgisayarın otomatik olarak telefon numarasını çevirmesini sağla- 
yan bir program yazabilirsiniz. Programı burada bitiriyoruz. Son olarak satırların 
düzenlenmesi için şu komutu yazınız. 


RENUM 
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Program aşağıdaki hali almıştır. 
FİNAL LİSTESİ 


19 REM Telefon rehberi 

20 DIM NAME$(199) 

30 DIM (TEL$(199) 

40 MODE 1 

50 WINDOW # 1,13,30,19,14 

60 PRINT #1, “1. Bilgiyi gir” 

70 PRINT #1, 2. Bilgi listesi” 

80 PRINT #1, “3. Arama” 

90 PRINT #1, “4. Bilgi saklanması” 
199 PRINT #1, “5. Bilgiyi yükle” 

119 LOCATE 7,25 

120 INPUT “seçenek tercihinizi girin”;ms 
139 CLS 

14ğ ON ms GOSUB 190,290359,430500 
150 LOCATE 9,25 

160 PRINT “menü için herhangi bir tuşa basın” 
179 IF INKEY$—“” THEN 170 

189 GOTO 49 

190 FOR x —1 TO 100 

200 CLS 

219 IF LEN(NAME$( x)) 0 THEN 260 
220 PRINT “girişleri durdurmak için RETURN'e basın 
230 INPUT; “Adı soyadı”;NAME$/ x ) 
260 NEXT 

270 PRINT “Başka girdi yok” 

284 RETURN 

290 FOR x -1TO 100 

300 IF NAME$(x)—“” THEN 334 

310 PRINT NAME$( x);“ *ŞTEL$( Xx) 
320 next 

330 PRINT “Liste bitti” 

340 RETURN 

350 INPUT “bul”;SEARCH$ 

360 FOR x <1TO 190 

379 IF INSTR(NAME$),SEARCH$( 9 THEN 400 
380 PRINT NAME$( x);“* *TEL$( Xx) 
390 RETURN 

400 NEXT 

419 PRINT “ad bulunamadı 

420 RETURN 

430 OPENOUT “data” 

440 FOR x —1 TO 1090 
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450 WRITE #9, NAME$/ x),TEL$/( x ) 
460 NEXT 

470 CLOSEOUT 

480 PRINT “data saklandı” 

490 RETURN 

500 OPENIN “data” 

510 FOR x —<1 TO 100 

520 INPUT #9, NAME$/( x),TEL$/( x) 
530 NEXT 

540 CLOSEIN 

559 PRINT “data yüklendi” 

560 RETURN 

run 


96 


Konu 3 
AMSTRAD CPC 6128 BASIC 
Komutlarının Komple Listesi 


ÖNEMLİ 


Bu konuda kullandığımız terimleri ve notasyonları anlamanız çok önemlidir. Bir- 
kaç çeşit parantez göreceksiniz ki bir komutu izah ederken kullanılmıştır. Bu tip 
parantezlerin her birinin ayrı anlamı vardır, 

Herhangi bir komut parantezli olarak gösterilmiyorsa aynen kullanılmalıdır. 
Örneğin; 

END 


komutu gibi. 
Eğer bir yazı köşeli parantez içindeyse, örneğin; 
< satır numarası > 


kelimeleri ve satırları yazmak gerekmez. Yukarıdaki örnekte komut için gerekli 
tip veri gösterilmiştir. Örnek 


EDİT < satır numarası > 

gördüğümüzde 

EDIT 100 

yazılmalıdır. 

Yuvarlak parantez mutlaka yazılmalıdır. Örneğin; 

COS (<rakamsal ifade >) 

parantezin içine cosinüsün gerektirdiği açı değeri yazılır, mesela; 


PRINT COS (45) 


Köşeli parantez ise isteğe bağlı ifadeleri belirler. 


RUN ( <satır numaras > | 


RUN komutunu bir parametrenin takip etmesi gerekmez, fakat siz bir parametre 
koyarak bu komutu genişletebilirsiniz. Komut aşağıdaki gibi iki şekilde de ifade 
edilebilir. 


RUN .... veya .... RUN 100 


Özel Karakterler 


& veya &H Hexadecimal sabite işareti 
&Xx Binary sabite işareti 
# Kanal yönlendirici işareti 


Veri Tipleri 


Diziler dan 255 karakter uzunluğunda olabilir. Bir dizi ifadesi dizi çeşidinin de- 
gerini meydana çıkaran bir ifadedir. Diziler - operatörünü kullanarak birbirlerine 
ilave edilebilirler. Sonuç olarak çıkan dizi 255 karakterden uzun olamaz. 


Nümerik veri reel veya tam sayı olabilir. Tam sayı verisi -372768 ile 32767 arasın- 
da olabilir. Reel sayılar ise * 1.7E 4 38 ve sıfırın üstündeki en küçük değer 2.9E-39 
dur. 


Bir nümerik ifade sonucu nümerik olan herhangi bir ifade olabilir. Sadece ra- 
kamlar oluşabilir veya nümerik değişken olabilir yada değişkenler tarafından ça- 
lıştırılan rakamlar olabilir. 


Bir akıntı ifadesi nümerik ifade  ileilgilidir. Şöyleki, konunun nereye gön- 
derilmesi gerekiyorsa (ekran penceresi, yazıcı veya disk gibi) bunu belirler. 


Bir okonulistesi bir virgülle ayrılan konu listesini belirleyen parametredir. Lis- 
te bir yada daha fazla konudan olabilir. 


Bazı işaretler: 
“o Tam sayı 


! reel sayı (gerçek) 
$ Dizi 
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AMSTRAD CPC6128 BASIC komutları burada şu formu kullanarak sıralanmış- 
tr. 


Anahtar Kelime 


Söz dizimi 

Örnek 

Tanımlama 
Bağlantılı komutlar 
Anahtar kelimeler: 


KOMUTLAR : doğrudan yapılan işlemler 
FONKSİYONLAR: bir ifadede girdi olarak istenen işlemler 
OPERATÖR matematiksel girdilerdir. 


BASIC küçük harf girilen tüm komutları program LIST yapılırken büyük harfe 
çevirir. Bu konudaki örnekler büyük harf olarak verilmiştir. bu program LIST ya- 
pıldığı zamanki görüntüsüdür. Eğer siz küçük harfler ile girerseniz hatalarınızı (yanlış 
yazılmış komutları) LİST yapıldığında küçük harf olarak kalacağıdan kolaylıkla 
fark edersiniz. 


Anahtar Kelimeler 


ABS 
ABS ( nümerik ifade ) 


PRINT ABS (-67.98) 
67.98 


FONKSİYON: Verilen ifadenin mutlak değerini geri verir. Bu, negatif sayıların 
pozitife çevrilmesi anlamındadır. 


Bağlantılı komut: SGN 


AFTER 


AFTER < zamanlayıcı gecikmesi >, |< zamanlayıcı numarası >) GOSUB < satır 
numarası > 
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19 AFTER 254 GOSUB 60:CLS 

20 PRINT “5 saniye içinde bir harf tahmin edin” 
30 a$ <—INKEYŞ:IF flag—1 THEN END 

40 IF a$ >< CHRŞ(INT(RND & 26 # 97)) THEN 39 
50 PRINT a$; “doğru. Siz kazandınız” 

60 PRINT “çok geç. Ben kazandım” 

70 SOUND 1,2000:flag — 1:RETURN 

run 


KOMUT: Verilen bir zaman dönemi geçtikten sonra bir alt programı çağırır. o za- 
manlayıcı gecikmesi (oparametresi 0.02 saniye birimleriyle gecikme süresini belir- 
tir. o Zamanlayıcı numarası (0 ile 3 arasında) eldeki dört geciktirme 
zamanlamasından hangisinin kullanılması gerektiğini belirtir. Zamanlayıcı 3 en yük- 
sek önceliklidir. Zamanlayıcı O (önceden tespit edilmiş zamanlayıcı) en düşük ön- 
celiklidir. 


Zamanlayıcıların her birinin onunla ilgili bir altprogram olması gerekir. 


Ara vericiler ile ilgili diğer bilgileri ““Boş Vaktinizde” adlı konunun 2. bölümünde 
bulabilirsiniz. 


Bağlantılı komutlar: EVERY, REMAIN, RETURN 


AND 


argüman AND argüman 


IF “ali'<“can” AND “köpek” >“kedi” THEN PRINT “doğru” ELSE PRINT “yanlış” doğru. 
IF “can”< “ali” AND “kedi” >“köpek” THEN PRINT “doğru” ELSE PRINT “yanlış” yanlış 
IF “ali” <“can” AND “kedi” >“köpek” THEN PRINT “doğru” ELSE PRINT “yanlış” yanlış 
PRINT 1 AND 1 

1 

PRINT 9 AND 9 

(0) 

PRINT 1 AND 9 

(0) 


OPERATÖR: Tam sayılarda ikili tabana çevirip kontrol eder. 
Bağlantılı komutlar: OR, NOT, XOR 


ASC 


ASC(< karakter dizisi> ) 


PRINT ASC (”x”) 
120 


FONKSİYON: Karakter dizisinin ilk karakterinin kod numarasını verir. 


İlgili anahtar kelime: CHR$ 


ATN 


ATN (< sayısal ifade >) 


PRINT ATN (1) 
0.7853G8163 


FONKSİYON: Sayısal ifadenin Ark-TaNjantını hesaplar. 
DEG VE RAD kullanarak hesapları ona göre yapar. 


Bağlantılı komutlar: COS, DEG, RAD, SIN, TAN 


AUTO 


AUTO (< satır numarası>)J)/,<artış >| 

AUTO 100,50 

KOMUT: Satır numaralarını otomatik olarak çıkartmak içindir. İsteğe bağlı | satır 
numarası parametresi programın belirli bir noktasından itibaren satır numarası 
çıkartmaya başlamak içindir. Eğer parametre konmazsa, satır numarası 10'dan iti- 


baren başlar. 


Tercihe bağlı artış yeni satırın numarasını belirler. Eğer parametre konulmazsa 
her satır numarası 10 artarak yazılır. 


Üretilen satır numarası halen kullanılıyorsa, satırın muhteviyatı ekranda görüntü- 
lenir ve gerekiyorsa düzeltme yapılabilir. Görüntülenen satır (RETURN) tuşuna 
basılırsa hafızadakinin yerine geçer. 


Otomatik sıfır numaralama |ESC)J tuşuna basılarak durdurulabilir. 


Bağlantılı komut: Yok 
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BIN$Ş 


BIN$ (<işaretsiz tamsayı ifadesi > |, <tamsayı ifadesi >| 


PRINT BIN$(64,8) 
01000000 


FONKSİYON: işaretsiz tam sayı ifadesinin değerini BINary (2 tabanına göre) ola- 
rak gösterir. Burada ikinci tam sayı ifadesi binary hanesinin sayısını belirtir. Bu 
da O ile 16 arasındadır. Eğer belirtilen hame sayısı daha büyükse sonuç ifadenin 
ön tarafı sıfırlarla dolar. Belirtilen hane sayısı daha küçükse sonuç belirtilen hane 
sayısına göre kısaltılmaz fakat ne kadar gerekliyse o kadar yazılır. 


işaretsiz tam sayı ifadesi -32768 ile 65535 değerleri arasında binary forma çevrile- 
bilir. 


Bağlantılı komutlar: DEC$,HEX$,STR$ 


BORDER 


BORDER <renk> |,<renk >| 


19 REM 729 border kombinasyonu 
20 SPEED INK 5,5 

30 FOR a—9 TO 26 

40 FOR b—9 TO 26 

50 BORDER a,b:CLS:LOCATE 14,13 
60 PRINT “border”;a;”,”:b 

709 FORt-—1TO 500 

80 NEXT t,b,a 

run 


KOMUT: Ekrandaki border (çerçeve) rengini değiştirir. Eğer iki renk belirlenmiş- 
se, border SPEED INK komutunda belirtilen hızda iki renk arasında değişir. Bor- 
der renkleri 0 ile 26 arasında değişir. 


Bağlantılı komut: SPEED INK 
BREAK 


ON BREAK CONT, ON BREAK GOSUB, ON BREAK STOP komutlarına ba- 
kınız. 
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CALL 


CALL < adres ifadesi > |, <parametre listesi >| 
CALL 9 


KOMUT: Harici olarak geliştirilmiş bir alt programı BASIC?den istenmesini sağ- 
lar. Yukarıdaki call, bilgisayarı tamamen resetler. 


Tecrübesi olmayanların kullanacağı bir komut değildir. 


Bağlantılı komut: UNT 
CAT 


CAT 
CAT 


KOMUT: Diskin kataloglanmasını sağlar. Bulunan tüm dosyaların (her dosyanın 
uzunluğu en yakın üst Kbayt cinsinden belirterek) tam adlarını görüntüler. Disk- 
deki kullanıma serbest olarak kalan alan, sürücü ve kullanıcı tanımlarıyla birlikte 
görüntülenir. 


Kataloglama hafızada hazır bulunan programı etkilemez. 


Bağlantılı komutlar: LOAD, RUN, SAVE 
CHAIN 


CHAIN < dosya adı > |,< satır numarası >| 

CHAIN “testprog.bas“',350 

KOMUT: Hafızada hazır bulunan program yerine diskden bir program yükler. Yeni 
program ya başlangıcından yada satır numarası (o belirlenmişse o satırdan ça- 
lışmaya başlar. 


Korunmuş dosyalar (SAVE,p) CHAIN ile yüklenip çalıştırılabilirler. 


Bağlantılı komutlar: CHAIN MERGE, LOAD, MERGE 
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CHAIN MERGE 


CHAIN MERGE < dosya adı >|,< satır numarası >| (DELETE < satır numa- 
rası sınırı >| 


CHAIN MERGE 'newrun.bas”, 750, DELETE 400-680 


KOMUT: Diskden yüklediği programı hafızada halen hazır bulunan programa bir- 
leştirir sonra meydana gelen programı seçmekte olan osatır onumarası belirtil- 
mişse belirtilen satırdan aksi halde baştan çalıştırmaya başlar. Eğer program 
birleştirilmeden önce orjinal programın bir kısmı çıkarılmak isteniyorsa DELETE 
satır numarası sınırı (o tercihi belirtilmelidir. 

Yeni programda bulunan eski program satır numaralır birleştirme yapıldıktan sonra 
yeni program satırları olarak değişir. (yeni satır içerikleri eski satırların üzerine 
yazılır) 

Korunmuş dosyalar CHAIN MERGE ile yüklenip çalıştırılmalıdır. 


Bağlantılı komutlar: CHAIN, DELETE, LOAD, MERGE 
CHR$ 


CHR$ (<tam sayı ifadesi >) 


19 FOR x -32 TO 255 
20 PRINT x;CHR$(x) 
30 NEXT 

run 


FONKSİYON: Bir o tam sayı ifadesini o (0'dan 255'e kadar kadar) karşılığı olan 
karaktere çevirir. O'dan 31'e kadar olan karakterler ise kontrol karakterleridir. 


Bağlantılı komut: ASC 


CINT 


CINT (< sayısal ifade>) 


19 n— 1.9999 

20 PRINT CINT (n) 
run 

2 
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FONKSİYON: Sayısal ifadenin değerini -32768 ile 32767 arasında yuvarlanmış halde 
gösterir. 


Bağlantılı komutlar: CREAL, FIX, INT, ROUND, UNT 
CLEAR 


CLEAR 
CLEAR 


KOMUT: Bütün değişkenleri sıfır veya boş yaparak temizler. Tüm açık dosyalar 
bırakılır, kullanma fonksiyonları ve diziler silinir ve BASIC için radyan moduna 
geçilir. 


İlgili anahtar kelime: Yok 


CLEAR INPUT 


CLEAR INPUT 


19 CLS 

20 PRINT “şimdi harfi yazın” 
30 FORt—1TO 3000 

40 NEXT 

59 CLEAR INPUT 

run 


KOMUT: Daha önce tuş takımından yazılmış girdileri atar. Bu komutun etkisini 
görmek için yukarıdaki programı RUN yapın ve sorduğu zaman harfleri yazın. 
50. satırı silin ve tekrar RUN yaparak aradaki farkı görün. 


Bağlantılı komutlar: INKEY, INKEY$, JOY 


CLG 
CLG (<ink>)| 
LOCATE 1,20 
CLG 3 


KOMUT: Ekrandaki grafikleri temizler, eğer oOink belirlenmişse grafik kağıdı 
(paper) o renge ayarlanır. 
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Bağlantılı komutlar: CLS, GRAPHICS PAPER, INK .ORIGIN 
CLOSEIN 


CLOSEIN 
CLOSEIN 


KOMUT: Diskden giriş dosyalarını kapatır. (OPENIN”'e bak) 
Bağlantılı komutlar: EOF, OPENIN 


CLOSEOUT 


CLOSEOUT 
CLOSEOUT 


KOMUT: Diske çıkış dosyalarını kapatır. (OPENOUT'a bak) 


Bağlantılı komut: OPENOUT 


CLS 


CLS (# <akıntı (kanal) numarası >| 


19 PAPER #2,3 
20 CLS #2 
run 


KOMUT: Verilen ekran penceresini kendi kağıt renginde temizler. Diğer kanal nu- 
marası belirtilmemiş ise o ekran penceresini temizler. 


Bağlantılı komutlar: CLG, INK, PAPER, WINDOW 
CONT 


CONT 
CONT 


KOMUT: (ESC) tuşuna iki defa basıldığında veya programda STOP komutundan 


sonra programa devam eder. CONT, program değişikliğe uğratılmadığı ve korun- 
muş program olmadığı takdirde programı uygulamaya devam eder. 
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CONT komutundan önce direkt komutlar girilebilir. 


Bağlantılı komut: STOP 


COPYCHR$ 


COPYCHR$ (# <kanal numarası >) 


19 CLS 

20 PRINT “üst köşe” 

30 LOCATE 1,1 

40 a$—COPYCHRS$ ( #0) 
50 LOCATE 1,20 

60 PRINT a$ 

run 


FONKSİYON: Kanaldaki hareket halindeki karakterleri kopya eder. Yukarıdaki 
program 1,I konumundaki karakteri (üst solda) kopya eder ve 1,20 konumunda 
tekrar meydana çıkartır. 

Eğer karakter okunması tanımlanamazsa, boş bir dizi geri döner. 


Bağlantılı komut: LOCATE 


COS 


COS (< sayısal ifade> ) 
DEG 

PRINT COS (45) 
0,707106781 


FONKSİYON: Sayısal ifadenin COSinüsünü hesaplar. DEG ve RAD, hesaplama- 
larda derece radyan olarak belirlenmesi için kullanılırlar. 


Bağlantılı komutlar: ATN, DEG, RAD, SIN 
CREAL 


CREAL (< sayısal ifade >) 
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10 a—Pl 

20 PRINT CINT (a) 
30 PRINT CREAL (a) 
run 

3 

3.14159265 


FONKSİYON: Sayısal ifadenin değerini reel sayıya çevirir. 
Bağlantılı komut: CINT 


CURSOR 
CURSOR | <sistem anahtarı >), (, <kullanıcı anahtarı >| 


19 CURSOR 1 

20 PRINT “soru?”; 

30 a$ —INKEYS:IF a$—“” THEN 30 
40 PRINT a$ 

50 CURSOR 9 

run 


KOMUT: Sistem veya kullanıcı anahtarını kursörle on veya off diye ayarlar. O 
zaman bu anahtarlar 9 (off) veya | (on) parametrelerini alırlar. Yukarıdaki INKEY$ 
komutunda kursör gözükmektedir. Sistem anahtarının 10. satırda kursörü Ie ayar- 
lamasıyla on pozisyonuna getirilir. 

Kursör, sistem ve kullanıcı anahtarların herikiside on (1) pozisyonunda olursa gö- 
rünür. Sistem anahtarı INPUT komutu ile otomatik olarak on durumana gelir fa- 
kat INKEY$ ile off (0) pozisyonuna döner. 

Anahtar parametrelerinden biri kullanılmayabilir (ancak ikiside değil). Bir anah- 
tar parametresi hariç tutulsa bile hafızadaki anahtar durumu değişmez. 


Bağlantılı komut: LOCATE 


DATA 


DATA <sabit listesi > 


10 FOR x -1T104 

20 READ adı$,soyadı$ 

30 PRINT adı$," ";soyadı$ 

40 NEXT 

50 DATA Ali, Öztürk, Hakan, Özmen 
60 DATA Semih, Özman, Ali, Mutlu 
run 
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KOMUT: Programda kullanmak için sabit verileri bulundurur. READ komutuy- 
la data değişkene okunur, daha sonra data listesinde ikinci veri okunur. RESTO- 
RE komutu istenilen DATA pozisyonuna göstergeyi gönderir. 

Daha geniş bilgi için ““Boş vaktiniz için?” adlı konunun ikinci bölümüne bakınız. 


Bağlantılı komut: READ, RESTORE 


DEC$Ş 


DEC$ (< sayısal ifade > ,< format kalıbı>) 


PRINT DEC$ (1017, “E£ # #4 #4 #4 #4 # #4 4.4 4” 
£10,000,000.00 


FONKSİYON: Sayısal ifadeyi, belirlenmiş bir format kalıbı kullanarak, ondalık 
gösterişe çevirir. 


Format kalıbı sadece aşağıdaki karakterlerden oluşur: 
Ee 


Bu format alanı belirleyicilerinin kullanımı PRINT USING komutunda anlatıla- 
caktır. 


Bağlantılı komutlar: BIN$,HEX$,PRINT USING,STR$ 


DEF FN 


DEF FEN < fonksiyon ismi > (( <fonksiyon parametresi >) — < ifade 


19 TIME/399 

20 DEF FNsaat—INT (TIME/300-1) 
30 EVERY 100 GOSUB 59 

40 GOTO 49 

59 PRINT “program saniyeleri”; 
60 PRINT FNsaat; “önce çalıştı” 
70 RETURN 

run 


KOMUT: Bir fonksiyonu tarif eder. BASIC, basit değerli, geri dönme fonksiyon- 
larının kullanılıman ve tarifine izin verir. DEF FN bu mekanizmanın tarif kısmı- 
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dır ve program içinde çalışan özel fonksiyonlu bir parametre meydana getirir (COS 
gibi.) 


(Yukardaki örnekte FNsaat (ESC) tuşuna bir kere basılarak beklemeye alınsa, iki 
defa basılarak durdurulsa bile sonra CONT ile devam edilsede dahi devamlı ola- 
rak yenilenir.) 


Bağlantılı komutlar: Yok 


DEFINT 


DEFINT < harf sıralaması > 

19 DEFINTN 

20 sayı — 123.456 

30 PRINT sayı 

run 

123 

KOMUT: Değişkeni tamsayı olarak yazmak için önceden belirler. Bir değişken belli 
bir karakter (! o $) olmadan karşılaşıldığında önceden belirlenmiş tip kabul edi- 
lir. Bu komut değişkenin tam sayı yazması için kullanır. İlk harfler şöyle olabilir: 
DEFINT a,b,c 

veya daha kapsamlı olarak şöyle yazılabilir: 


DEFINT a-z 


Bağlantılı komutlar: DEFREAL,DEFSTR 
DEFRFAL 


DEFREAL <harf sıralaması > 

DEFREAL Xx,a-f 

KOMUT: Değişkeni reel sayı olarak yazmak için önceden ayarlanır. Bir değişken 
belirli bir karakter (! “o $) olmadan karşılaşıldığında önceden belirlenmiş tip ka- 
bul edilir. Bu komut değişkenin reel sayı olarak yazılması için tanımlanmış ilk har- 
fini önceden tespit etmek için kullanılır. İlk harfler şöyle olabilir: 


DEFREAL a,b,c 
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veya daha kapsamlı olarak: 


DEFREAL a-z 


Bağlantılı komutlar: DEFINT, DEFSTR 
DEFSTR 


DEFSTR < harf sıralaması > 


19 DEFSTRİi 

20 isim—“Amstrad” 
30 PRINT isim 

run 

Amstrad 


KOMUT: Değişkeni dizi tipinde daha önceden belirler. Değişkenle belirli bir ka- 
rakter olmadan karşılaşıldığında (! Vo $) önceden belirlenmiş tip kabul edilir. Bu 
komut değişkenin diziye tanımlanmış ilk harfi (harfleri)ni yazmak için kullanılır. 
İlk harflerin listesi şöyle olabilir: 

DEFSTR a,b,c 

Ya da geliştirilmiş olarak şöyle olabilir: 

DEFSTR a-z 

Bağlantılı komutlar: DEFINT, DEFRFEAL 


DEG 


DEG 
DEG 


KOMUT: Hesaplarda derece modunu seçer. SIN,COS,TAN ve ATN daha önce- 
den belirlenmiş şartlarda radyan'dır. “DEG” RAD, NEW, CLEAR, LOAD, RUN, 
vs. gibi komutlarla değiştirilmediği sürece BASIC'i dereceye ayarlar. 


Bağlantılı komutlar: ATN, COS, RAD, SIN, TAN 


DELETE 


DELETE < satır numara aralığı > 
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DELETE 190-200 
KOMUT: programdan belirlenen satır numarası aralığı kısmını çıkartır. 


İlk veya son numara (satır numara aralığı) “programın başından itibaren” yahut 
“programın sonuna kadar” diye belirterek de çıkartılabilir. 


DELETE -244:Baştan 204.satıra kadar 

veya 

DELETE 54-:54:satırdan sona kadar 

veya 

DELETE :Tüm programı siler. 

Bağlantılı komutlar: CHAIN, MERGE, RENUM 


DERR 


DERR 
LOAD “xyz.abc” 


XYZ.ABC not found 
Ready 

PRINT DERR 

146 


FONKSİYON: Disk dosyalama sisteminden geri çevrilen en son hata kodunu ra- 


por eder. DERR meydana gelen disk hatasını tetkik etmek için kullanılır. 
“Bilginiz için?” adlı konuda hata mesajları listesine bakınız. 


Bağlantılı komutlar: ERL, ERROR, ERROR, ON ERROR GO TO, RESUME 
DI 


DI 


19 CLS:TAG:EVERY 19 GOSUB 99 

20 X1 —RND * 329:X2 RND #320 

30 Y — 200-4 RND x 200:C$ — OHR$(RND & 255) 
40 FORX -329-X1 TO 3294 X2 STEP 4 

20 DI 
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60 MOVE 320,9,1,:MOVE Xx -2,Y:MOVE X,Y 
79 PRINT “ "CŞ$:FRAME 

84 ELNEXT:GOTO 29 

GO MOVE 329,:'DRAW x 4 8,Y-16,0:RETURN 
run 


KOMUT: kesintileri (interrupts)dolaylı kesinti alt programında RETURN tarafından 
dolaylı veya El tarafından olarak terar harekete geçene kadar etkisiz kılar (ESC 
kesintisi hariç). 


Bir kesme alt programa girdiğinde eşit veya daha düşük öncelikteki kesintileri et- 
kisiz hale getirir. 


Komut kelimenin tam anlamı ile programın kesintisiz devam etmesi için kullanı- 
lır. Örneğin kaynakların kullanılması için iki alt programın yarışması sırasında. 
Yukardaki örnekte ana program ve alt program grafik görüntüyü kullanmak için 
yarışmaktadır. 


Kesintelir için geniş bilgi ““Boş vaktiniz için” adlı konunun 2. bölümündedir. 


Bağlantılı komutlar: AFTER, El, EVERY, REMAIN 
DIM 


DIM < değişken listesi > 


19 CLS 

20 DIM arkadaş$(5),telefon$(5) 

30 FORn—1TO5 

40 PRINT “Arkadaş numarası”;n 

50 INPUT “İsim girin”; arkadaş$(n) 
60 INPUT “Tel no'sunu girin”; telefon$/n) 
70 PRINT 

80 NEXT 

90 FORn—1TO5 

149 PRINT n; arkadaş$/n), telefon$/n) 
119 NEXT 

run 


KOMUT: matrislerin boyutlarını belirler. DIM matrisler için yer tahsis eder ve mak- 
simum değişken sayısını belirler. BASIC'e bir matris için ayrılacak ver hakkında 
bilgi verilmelidir, aksi takdirde 10 olarak belirler. 


Bir matris, 1 değişken adı kullanan, alt numaralı ve matrisdeki her elemanın kendi 


değeri olan bir değişken listesi tarafından tanımlanır. Matrisin kontrolu FOR NEXT 
döngüsü tarafından her eleman ele alınarak yapılabilir. 
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Matrisler çok boyutlu olabilir ve bu tür matrislerin her elemanı matrisin sınırları 
içindeki pozisyonundan tanımlanır. Örneğin matris şu şekilde boyutlandırılsın: 


DIM A$ (29,209,20) 
Matrisin bir elemanı şöyle tanımlanabilir: 
a$(4,5,6) 


Bağlantılı komut: ERASE 


DRAW 


DRAW < Xx -koordinatı >, < y-koordinatı > |,|<ink >J (,<ink mode >)J| 


19 MODE 4:BORDER 4:PAPER 9:INK 9,9 

20 X—RND x 640:Y —RND x 400:Z — RND x 15 
30 DRAW X,Y,Z 

4) GOTO 24 

run 


KOMUT: Grafik kursörünün şimdiki pozisyonundan x,y koordinatları belirlen- 
miş bir pozisyona çizgi çizer. Çizginin rengi (ink) ile belirlenmelidir (0 ile 15 arası). 


Tercihe bırakılan (ink mode) yazılan ink'in grafik ekrandaki reaksiyonunu belir- 
ler. Bu 4 ink mode şöyledir. 


90: Normal 

1: XOR (eXclusive OR) 
2: AND 

3: OR 


Bağlantılı komutlar: DRAWR, GRAPHICS PEN, MASK 


DRAWR 


DRAWR < Xx -uzaklığı >, <-uzaklığı > (|,| <ink >)J(,<ink mode >) 
19 CLS:PRINT “Yukarı geliyor musunuz?” 
20 MOVE 9,359: FOR n—1TO 18 


30 DRAWR 29,9,1 
40 DRAWR 9,-20,1 
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50 NEXT: MOVE 348,0:FILL 3 

60 GOTO 60 

run 

KOMUT: Ekranda grafik kursörünün şimdiki pozisyonundan x ve y uzaklıkları 
belirtilmiş pozisyona çizgi çizer. Çizelecek çizginin rengi (ink) belirlenmilidir (0 ile 
15 arası) 


Tercihe bırakılmış (ink mode) yazılan ink'in grafik ekrandaki tersini belirler. Bu 
4 ink modu şöyledir: 


9: Normal 
I: XOR 
2: AND 
3: OR 


Bağlantılı komutlar: DRAW, GRAPHICS PEN, MASK 


EDIT 


EDIT < satır numarası > 
EDIT 24 


Komut: Belirtilen satırdaki yanlışı veya eksiği düzeltmek için satırı kursör ile bir- 
likte ekrana getirir. 


Bağlantılı komutlar: AUTO, LIST 
El 


E| 
El 


KOMUT: DI komutuyla kaldırılmış kesintiyi tekrar geçerli hale getirir. 


Eğer bir kesme alt programında kesinti etkisiz bırakılmışsa alt programın sonun- 
daki RETURN komutuyla otomatik olarak tekrar harekete geçirilir. 


Daha fazla bilgi için “Boş vaktiniz için” adlı konunun 2. bölümüne bakınız. 


Bağlantılı komutlar: AFTER, DI, EVERY, REMAIN 
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ELSE 
(F komutuna bakınız) 


END 
END 
END 


KOMUT: Program işleyişini sona erdirir ve direkt mod'a döner. END komutu prog- 
ramda birkaç tane olabilir ve bir tanesi programın en son satırından sonra diye 


kabul edilir. 


Bağlantılı komut: STOP 


ENT 


ENT < zarf numarası > |,<zarf bölümü >J(,<zarf bölümü >JI, <zarf bölü- 
mü >jJI, <zarf bölümü>J|,<zarf bölümü >| 


14 ENT 1,10,-50,10,10,50,19 
20 SOUND 1,500,200,10,,1 
run 


KOMUT: Zarf numarasında belirlenmiş ton zarf ayarlar (1 ile 15 arası) ve SO- 
UND komutu ile birleşik olarak kullanılır. Eğer zarf numarası negatif (—) ise (1 
ile -15 arası) SOUND komutunun bitişine kadar zarf tekrarlanır. 


Her zarf bölümü 2 veya 3 parametre içerir. Eğer 3 parametre kullanılıyorsa bun- 


lar: 


<basamak sayısı >,< basamak boyutu >,< bekleme zamanı > 


PARAMETRE 1: < basamak sayısı > 


Bu parametre zarf bölümünde istediğiniz seste kaç değişik ton basamağı olduğunu 
belirtir. Örneğin 10 saniye süren bir notanın bölümünde her | saniye 10 ton basa- 
mağı isteyebilirsiniz. Bu durumda basamak sayısı parametresi kullanılmalıdır. 
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Kullanılabilen Oobasamak sayısı (O'dan 239*a kadardır. 
PARAMETRE 2: < basamak boyutu > 


Bu parametre -128 ile 4 127 arasında yer alır. Negatifler notanın tonunu yüksel- 
tir; pozitifler ise alçaltır. En kısa ton periodu (dır. Ton periodları hakkında geniş 
bilgiyi ““Bilginiz için?” adlı konuda bulabilirsiniz. 


PARAMETRE 3: < bekleme zamanı > 


Bu parametre basamaklar arasındaki zamanı saniyenin 1/100'lük birimler esasına 
göre belirtir. Bekleme zamanı 0 ile 255 (4 sayısı 256 diye ele alınır) arasındaki sayı- 
lar olabilir yani en uzun zaman 2,56 saniyedir. 

Eğer iki parametre kullanılırsa, bunlar: 

ton periodu, bekleme zamanıdır. 


PARAMETRE 1: <ton periyodu > 


Bu parametre ton periyodu için yeni ayarlamayı verir. (GOUND komutundaki 2. 
parametreye bakınız) 


PARAMETRE 2: < bekleme zamanı > 


Bu parametre bekleme zananı 0,01 saniyelik birimlerde belirler. Bekleme zamanı 
numaralar 0 ile 255 arasındadır (0 256 diye kullanılır) ve en uzun zaman 2.56 sani- 
yedir. 


GENEL OLARAK 


Bekleme zamanının toplam uzunluğu SOUND komutundaki süre parametre- 
sinden büyük olmamalıdır, aksi takdirde ses bütün ton basamakları geçmeden bi- 
ter. 

Aynı şekilde SOUND komutundaki süre parametresi beklemezamanı ndan 
daha büyük olursa ton basamakları geçip gittikten sonrada ses devam eder ve son 
ton yüksekliğinde sabit kalır. 

ENT komutunda 5 değişik zarf bölümü vardır (her biri yukarda anlatılan 2 veya 
3 parametrenin kullanılması ile oluşur). 

Ton zarfının ilk basamağı hemen yerine getirilir. Verilen ton zarfı her seferinde 
ayarlanır. Daha önceki değeri kaybolur. 

Zarfı numarasını belirtmek ve zarfa bölümünün olmaması önceki ayarlamayı ip- 
tal eder. 

Bağlantılı komutlar: ENV, SOUND ğ 
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ENV 


ENV <env. no'su >, <env.bölümü >|(,<env.bölümü >| 
(|, <env.bölümü >JI, <env.bölümü >| 
|, <env.bölümü >| 


19 ENV 1,15,-1,10,15,1,10 
20 SOUND 1,200,300,15,1 
run 


KOMUT: SOUND komutu ile bağlantılı olarak kullanılan zarf numarasında be- 
lirtilen (1 ile 15 arası) ses şiddetini ayarlar. 


Her bir zarf bölümü 2 veya 3 parametre içerir. Eğer 3 parametre kullanılıyorsa 
bunlar: < basamak sayısı > , < basamak boyutu >, <bekleme zamanı > 


PARAMETRE 1I:<basamak sayısı > 


Bu parametre zarf bölümünde geçmesini istediğiniz sesin kaç değişik şiddet basa- 

mağı olduğunu belirler. Örnek olarak 10 saniye süren bir nota bölümünde her biri 

I saniyelik 10 ses şiddeti basamağı isteyebilirsiniz. Bu durumda (basamak sayısı 
parametresi 10 olmalıdır. 


Kullanılabilen (obasamak sayısı (o 0'dan 127'ye kadardır. 
PARAMETRE 2: <basamak boyutu > 


Her basamak bir öncekine göre ses seviyesi olarak 0'dan 15'e kadar değişir. 16 
değişik ses seviyesi SOUND komutunda duyulanla aynıdır. Bununla beraber o ba- 
samak boyutu (o parametresi -128 ile 127 arasında kullanılır (ses seviyesi O ile 15 
arasındayken). 


PARAMETRE 3: <bekleme zamanı > 

Bu parametre basamaklar arasını 0.01 saniyelik birimler de belirler. Bekleme za- 
manı numarası 0 ile 255 arasında değişir (0 256 diye ele alınır). Basamaklar arasın- 
da en uzun zaman 2,56 saniyedir. 

Eğer iki parametre kullanılıyorsa bunlar: 


-< donanım (hardware) zarfı >, zarf periodu > 


PARAMETRE 1I:< donanım zarfı. > 


parametre ses entegresinin envelop belirleme kütüğüne gönderilecek değeri 
elirtir. 
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PARAMETRE 2: <zarf periyodu > 


Bu parametre ses entegresinin zarf period kütüğüne gönderilecek değeri belirtir. 


Donanım zarfını kullanırken donanım bilginiz olduğu var sayılır. Böyle bir bilgi- 
niz yoksa uygun bir (o bekleme zamanı parametresi için yazılım zarfı kullanma- 
nız tavsiye edilir. 


GENEL OLARAK 


Bekleme zamanının toplam uzunluğu SOUND komutundaki süre parametresin- 
den büyük olmalıdır aksi takdirde bütün ses basamakları geçmeden önce es biter 
(bu durumda ses zarfının geri kalan içeriği iptal edilir). 


Aynı şekilde SOUND komutunun süre parametresi obeklemezamanı pa- 
rametresinden büyük olursa bütün ses basamakları geçtikten sonra da ses de- 
vam eder ve son seviyesinde sabit kalır. 


ENV komutunda 5 değişik zarf bölümü kullanılabilir (yukarda bahsedilen 2 ve 3 
parametreler) 


Ses zarfının ilk basamağı hemen işleme sokulur. 
Verilen ses zarfı her seferinde ayarlanır ve bir önceki değer kaybolur. 


Envelop bölümü Olmadan belirlenen envelop numarası (o önceki ayarı ip- 
tal eder. 


Bu konuda daha geniş bilgi için “Boş vaktinizde” adlı konunun 2. bölümüne ba- 
kın. 


Bağlantılı komutlar: ENT, SOUND 


EOF 


EOF 

19 OPENİN “ex1.bas” 
20 WHILE NOT EOF 
30 LINE INPUT #9,a$ 
40 PRINT a$ 

50 WEND 

60 CLOSEIN 

run 
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FONKSİYON: Disk inputunun dosyanın sonunda olup olmadığına bakar. Sonda 
olduğu doğruysa veya herhangi bir dosya açılmamışsa -1; aksi durumda 4 (yanlış) 
verir. 


Bağlantılı komutlar: OPENIN, CLOSEIN 


ERASE 


ERASE < değişken adı listesi > 


19 DIM a(190),b$(190) 
ERASE a,b$ 


KOMUT: Artık ihtiyaç kalmayan matrislerin içeriklerini, belleği diğer kullanım- 
lara elverişli hale sokmak için, siler. 


Bağlantılı komutlar: DIM 


ERL 


ERL 

19 ON ERROR GOTO 34 

20 GOTO 1409 

39 PRINT “hatalı satır”;ERL 
40 END 

run 


FONKSİYON: Hatanın görüldüğü satırı rapor eder. Yukardaki örnekte 20. satır- 
da hata var ve ERL fonksiyonu tarafından bildirilecektir. 


Bağlantılı komutlar: DERR, ERR, ERROR, ON ERROR GOTO, RESUME 


ERR 


ERR 

GOTO 500 

Line does not exist 
Ready 

PRINT ERR 

8 
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FONKSIYON: Enson görülen hata numarasını bildirir. Hata mesajları listesini ““Bil- 
giniz için”? adlı konuda bulabilirsiniz. Yukardaki örnekte hata no 8 “satır mevcut 
değil” (line does not exist) hatasıdır. 


Bağlantılı komutlar: DERR, ERL, ERROR, ON ERROR GOTO, RESUME 


ERROR 


ERROR < tamsayı > 


19 IF INKEY$—“” THEN 10 ELSE ERROR 17 
run 


KOMUT: Verilen bir hata numarasıyla hata tedbiri alır. Hata mesajları listesi, 1”den 
32'ye kadar, “Bilginiz için”? adlı konuda verilmiştir. Hata, BASIC tarafından gerçek 
olduğu meydana çıkarılmış gibi muamele edilip ERR ve ERL'nin uygun değerleri 
rapor edilirken bir hata ele alma bölümüne atlar. 


ERROR'”e 33 ile 255 arasında ve hata mesajı meydana getirmek için kullanılan bir 
tamsayı ifadesi eşlik eder örneğin: 


19 ON ERROR GOTO 100 

20 INPUT “Bir karakter girin”;a$ 

30 IF LEN(a$)< >1 THEN ERROR 149 
4) GOTO 20 

190 IF ERR— 190 THEN 119 ELSE 134 
119 PRINT CHR$(7) 

120 PRİNT “Bir karakter demiştim” 
130 RESUME 20 

run 


Bağlantılı komutlar: ERL, ERR, ON ERROR GOTO, RESUME 


EVERY 


EVERY < zaman periyodu >|,< sayıcı numarası >J GOSUB < satır numarası > 


19 EVERY 59,1 GOSUB 34 
20 GOTO 20 

30 SOUND 1,29 

40 RETURN 

run 
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KOMUT: BASIC alt programı sabit zaman aralıklarında çağırır. Zaman periyo- 
du, zaman aralığını 0.02 saniyelik birimlerle belirtir. “Sayıcı numarası” (0 ile 3 
arasındadır) dört geciktirili sayaçlardan hangisinin kullanılacağını belirler. Sayıcı 
3 en yüksek önceliklidir, sayıcı 9 (önceden belirlenmiş sayıcıdır) en düşük öncelik- 
lidir. Daha fazla bilgi için ““Boş zamanınız için”? adlı konunun 2. bölümüne bakı- 
niz. 


Bağlantılı komutlar: AFTER, REMAIN 


EXP 


EXP (< sayısal ifade >) 


PRINT EXP (6.876) 
968.743625 


FONKSİYON: E'nin verilen sayısal ifade (değeri kadar üssünü alır, E'nin de- 
geri 2.7182818'dir ve I'in tabii logaritmasıdır (Fn). 


Bağlantılı komutlar: LOG 


FILL 

FILL <ink > 

19 MODE 4 

20 FOR n-1 TO 540 
30 PRINT “0”; 

40 NEXT 


50 pencolour 24 RNDXx13 
60 FILL pencolour 

70 GOTO 54 

run 


KOMUT: Grafik ekranda herhangi bir alanı doldurur. Alanın kenarları hali ha- 
zırdaki grafik kalemin ink'i ile veya doldurmak için kullanılan ink ile çizgi çizile- 
rek belirlenir. Doldurma şimdiki grafik kursörün durduğu yerden başlar. Eğer bu 
yer kenarın üzerinde yer alıyorsa hiçbir yer doldurulmaz. 

Bağlantılı komutlar: GRAPHICS PEN 


FIX 


FIX (< sayısal ifade >) 


PRINT FIX (9.99999) 
9 
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FONKSİYON: Sayısal ifadede tam sayıdan sonrasını çıkartarak sıfırlar. 
Bağlantılı komutlar: CINT, INT, ROUND 


FN 
(DEF FN komutuna bakınız) 


FOR 


FOR < basit değişken >— < başla >TO< son >(STEP < artış miktarı >| 


18 FORn—2TO8STEP2 

20 PRINT n; 

30 NEXTn 

40 PRINT “kime teşekkür edeceğiz?” 
run 


KOMUT: Programın bir bölümünde FOR ve NEXT komutları arasında, kontrol 
değişkeninin başlangıç ve son değerleri arasında ilerlemesini sağlar. Eğer STEP  ar- 
tş (o belirlenmemiş ise bunu | olarak kabul eder. 


Artış miktarı negatif olarak belirlenebilir ancak başlangıç parametresi son para- 
metresinden büyük olmalıdır aksi takdirde kontrol değişkeni ilerlemez. 


FOR NEXT döngüleri birbirlerinin içinde olabilir. 


NEXT komutuna değişkenin adını koymak isteğe bağlıdır. BASIC isimsiz NEXT? - 
lerin hangi FOR komutuna bağlı olduğunu otomatik olarak bulur. 


Bağlantılı komutlar: NEXT, STEP. TO 
FRAME 


FRAME 

19 MODE 4 

20 PRINT “FRAME KAPALI” 
30 TAG 

40 MOVE 9,200 

59 FOR x -9 TO 504 STEP 4 
60 IFf—1 THEN FRAME 
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70 MOVE Xx ,200 
80 PRINT “ ”;CHR$(143); 


90 NEXT 

190 1Ff—1 THEN RUN 
119 CLS 

120 TAGOFF 

139 PRINT “FRAME AÇIK” 
140f—1 

159 GOTO 34 

run 


KOMUT: Ekrandaki grafik çizimleri ekran geri dönüş sinyali (frame flyback) ile 
senkronize eder. Bütün etkisi karakter veya grafik karakterlerinin titremeye veya 
kopmaya uğramadan yumuşak olmasıdır. 


Bağlantılı komutlar: TAG, TAGOFF 


FRE 


FRE (<sayısal ifade >) 
FRE (<dizi ifadesi >) 


PRINT FRE (9) 
PRINT FRE (“) 


FONKSİYON: BASIC tarafından kullanılmamış ne kadar serbest bellek olduğu- 
nu belirtir. 


FRE (“ ”) uygun bir boşluk için bir değere dönmeden hafızayı gereksiz şeyleri te- 
mizlemeye zorlar. 


Bağlantılı komutlar: HIMEM, MEMORY 


GOSUB 


GOSUB < satır numarası > 
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GOSUB 120 


KOMUT: Belirtilen satır numarasına giderek BASIC alt programına atlar. Alt prog- 
ramın sonundaki RETURN komutu ile GOSUB komutundan sonraki talimattan 
itibaren program çalışmaya devam eder. 


Bağlantılı komutlar: RETURN 


GOTO 


GOTO <satır numarası > 
GOTO 9g 
KOMUT: Belirtilen satır numarasına gider. 


Bağlantılı komutlar: Yok 
GRAPHICS PAPER 


GRAPHICS PAPER < ink > 


19 MODE 9 

20 MASK 15 

30 GRAPHICS PAPER 3 
40 DRAW 640,0 

run 


KOMUT: Grafik kağıdının ink'ini ayarlar. Örneğin ekrana çizilen grafiğin arka 
fonu. Devamlı çizgiler çizildiğinde grafik kağıdı görülmez. Yukardaki örnekte 
MASK komutu kesikli bir çizgi çizilmesini sağlar ve grafik kağıdı görülür. 


Grafik kağıdının ink'in (0 ile 15 arasındadır) TAG işlemdeyken karakterlerinin ya- 
zıldığı kağıt alanı için kullanılır ve CLG kullanılarak grafik pencere temizlendi- 
ğinde ilk konumuna gelir. 


Bağlantılı komutlar. CLG, GRAPHICS PEN, INK, MASK, TAG, TAGOFF 


GRAPHICS PEN 


GRAPHICS PEN (<ink >J (, <fon modu >| 
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19 MODE 9 

20 GRAPHICS PEN 15 

30 MOVE 209,0 

40 DRAW 209,490 

50 MOVE 639,0 

60 FILL 15 

run 

KOMUT: Çizilecek çizgilerde ve işaretlenerek noktalarda kullanılacak ink *i 
(0-15 arasında) ayarlar. Grafik (fon modu 'da ayarlanabilir. 

9: Mat fon 

1: Şeffat fon 

(Şeffaf ton karakterleri, TAG çalışırken, grafik sayfasını etkiler ve noktalı çizgi- 
lerde boşluklar olur.) Parametrelerden biri çıkartılabilir fakat herikiside değil. Eğer 
parametrelerden biri çıkartılırsa kısmi ayarlama değişmez. 


Bağlantılı komutlar: GRAPHICS PAPER, INK, MASK, TAG, TAGOFF 


HEX$Ş 


HEX$ (<işaretsiz tam sayı >/, <alan genişliği >| 


PRINT HEX$ (255,4) 
dİFF 


FONKSİYON: İşaretsiz tam sayıyı haksadesimal (16'lı taban) dizi haline çevirir. 
Bu çevirmeyi yaparken (alan genişliği)nde bildirilen haneyi (0 ile 16 arasındadır) 
kullanır. Eğer hane sayısı sonuçta çıkan ifadeden büyük ise ön tarafına 9 koyar. 
Eğer bildirilen hane sayısı küçükse sonuç kısaltılmaz. Ne kadar hane gerekiyorsa 
o kadar üretilir. 


İşaretsiz tamsayı (o -32768”den 65535*e kadar değerde heksadesimal forma çev- 
rilebilir. 


Bağlantılı komutlar: BIN$, DEC$, STR$, UNT 


HIMEM 


HIMEM 
PRINT HIMEM 
42619 
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FONKSİYON: BASIC tarafından kullanılan belleğin en yüksek byte adresini verir 
(MEMORY ile değiştirilebilir) 


Bağlantılı komutlar: FRE, MEMORY, SYMBOL, SYMBOL AFTER 
IF 


If < mantıksal ifade > THEN < seçenek kısmı > (ELSE < seç-kısmı> | 


19 MODE 1 

20 Xx <CINT (RND x 190) 

30 PRINT “Tuttuğum sayısı (6-199 arası) bul” 
40 INPUT N 

50IFn<Xx THEN PRINT n; “çok küçük” 

60 IFn>Xx THEN PRINT n; “çok büyük” 
79IFn—x THEN 80 ELSE C—C 4 1:GOTO 4ğ 
80 PRINT “Çok iyi bildiniz”; 

90 PRINT c * 1;“'yaklaştınız” 

run 


KOMUT: Mantıksal ifadenin doğruluğunu araştırır ve doğru ise seçenek kısmını 
işleme koyar. Eğer mantıksal ifade yanlış ise ve ELSE de bir seçenek belirlenmiş 
ise 0, aksi takdirde hemen altındaki satır işleme konur. IF THEN komutları her- 
hangi bir derinlikte olabilir ve satırın bitmesi ile sona erer. Bu nedenle aynı satırda 
IF THEN komutlarına bağlı olmayan bir başka cümle olması imkansızdır. 


Mantıksal ifadenin sonucu herhangi bir satıra atla komutu aşağıdaki şekillerde ola- 
bilir: 


IFa—1 THEN 109 
IFaz1 GOTO 199 
Il az 1 THEN GOTO 149 


Bağlantılı komutlar: ELSE, GOTO, THEN 
INK 


INK <ink>, <renk>|,<renk>)J| 
19 MODE 1:PAPER 9:PEN 1 

20 FORp—-94TO1 

30 FOR i-9 TO 26 

40 INK pji 
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50 LOCATE 16,12:PRINT “INK”;p;“*.”i 
60 FORt—1 TO 408:NEXT t,i,p 

70 INK 9,1: INK 1,24:CLS 

run 


KOMUT: Verilen ink'e göre rengi ayarlar. INK parametresi 0-15 arası olmalıdır. 
PEN veya PAPER komutuna ait olan referansı tanımlar. İlk renk parametresi bir 
tam sayı ifadesi olan renk değeridir ve O ile 26 arasında değişir. Seçmeli olan ikinci 
renk ise iki renk arasında değişeceğini belirtir ve değişme hızı SPEED INK komu- 
tu ile hesaplanır. 


Bağlantılı komutlar: GRAPHICS PAPER, GRAPHICS PEN, PEN, PAPER, SPE- 
ED INK 


INKEY 


INKEY (<tamsayı ifadesi >) 


19 IF INKEY (55) <> 32 THEN 19 
20PRINT “SHIFT ve V tuşuna basın” 
30 CLEAR INPUT 

run 


FONKSİYON: Tuş takımını hangi tuşlara basıldığını bildirmek için sorguya çe- 
ker. Tuş takımı her 0.02 saniyede bir tetkik edilir. 


Fonksiyon herhangi bir tuşun basılı kalıp kalmadığını -1 değerinin geri dönmesiy- 
le araştırır. 


Yukardaki örnek SHIFT ve V tuşunun beraberce basılıp basılmadığını araştırır ve 
sona erer. 


Tuş numaralarını bilgisayarınızın sağ üst köşesinde bulabilirsiniz aynı zamanda ““Bil- 
giniz için”? adlı konuda açıklama yapılmıştır. 


SHIFT CONTROL ve (tam sayı)'da belirlenen tuş bileşimi şu şekilde tanımlanır: 


Geri dönen ISHIFTJ ICONTROLJ| Belirlenen tuş 
-1 aşağı/yukarı aşağı/yukarı yukarı 
0 yukarı yukarı aşağı 
32 aşağı yukarı aşağı 
128 yukarı aşağı aşağı 
160 aşağı aşağı aşağı 
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Bağlantılı komutlar: CLEAR INPUT, INKEY$, JOY 
INKEY$ 


INKEY$ 

1g CLS 

20 PRINT “Evet veya Hayır'ı (E/H) seçiniz” 
30 a$—INKEY$Ş 

40 IF a$—“” THEN 30 

50 IF a$—“e” OR a$—“E” THEN 84 
60 IF a$—“h” OR a$—“H” THEN 99 
70 GOTO 39 

84 PRINT “Siz Evet'i seçtiniz”:END 
94 PRINT “Siz Hayır'ı seçtiniz” 

run 


FONKSİYON: Tuş takımını araştırır, herhangi bir tuş basılmışsa bulunan diziye 
döner. Eğer hiç bir tuşa basılmamışsa INKEY$ boş bir diziye döner. Yukardaki 
örnekte 40. satır ve 70. satır programa tuş takımı dizisini sorguladıktan sonra 30. 
satıra geri dönmesini söyler. 


Bağlantılı komutlar: CLEAR INPUT, INKEY 


INP 


INP (<kapı numarası >) 


PRINT INP (& FF77) 
255 


FONKSİYON: Kapı numarası'nda belirtilen 1//O adresinden INPUT değerini geri 
getirir. 


Bağlantılı komutlar: OUT, WAIT 


INPUT 


INPUTJ# <kanal ifadesi >,J(;) (< tırnak içine yazılacak ifade ayırıcı > | < değiş- 
ken listesi > 
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19 MODE 1 

20 INPUT “Çarpma için iki sayı ver, (virgülle, ayrılmış olsun)”;a,b 
30 PRINT a; “çarpı”; b;“eşittir”;a xb 

49 GOTO 20 

run 


KOMUT: Bildirilen kanaldan verileri okur (kanal numarası verilmemişse 9 kana- 
lından okur.) 


İlk “<;”* komut işleme girdikten sonra yeni satıra gitmesini önler. 


(Ayırıcı) virgül veya noktalı virgül olabilir. Noktalı virgül soru işareti görünmesi- 
ne neden olur; virgül ise soru işaretini önler. 


Eğer giriş yanlış yapılmışsa, yani yerine 0 harfi girilmişse o zaman BASIC şöyle 
uyarır: 


? Redo from start 


Tuş takımından gelecek bütün cevaplar RETURN tuşuna basıncaya kadar bitiril- 
melidir. 


Bağlantılı komut: LINE INPUT 
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INSTR 


INSTR (( <başlama pozisyonu >,| <araştırılan dizi >, < araştırılacak dizi >) 


19 CLS:FOR n—1 TO 26 

20 alfabe$ — alfabe$ - CHRŞ/n * 64) 
30 NEXT 

50 b$ - UPPER$/(a$) 

60 b$;“bir sayıdır”; 

70 PRINT INSTR (alfabe$,b$); 

84 PRINT “alfabede.”:PRINT 

90 GOTO 44 

run 


FONKSİYON:  Araştırılacak dizi ifadesini bulmak için (araştırılan dizi yi 
araştırır ve bunun ilk bulunduğu yeri belirtir. Eğer (araştırılacak dizi (oaraştırı- 
lan dizi de bulunamazsa 9 bildirilir. 

Araştırmaya hangi pozisyondan başlanacağı, seçimi tercihe bağlı olan (başlama 
pozisyonu oparametresinde I1*den 255'e kadar olan birtam sayı ile belirlenir. Ak- 


si takdirde arama araştırılacak dizi nin ilk karakterinden başlar. 


Bağlantılı komut: Yok 


INT 
INT (<sayısal ifade>) 


PRINT INT (41.995) 
2 


FONKSİYON: Virgülden sonraki haneleri atarak en yakın küçük tam sayıya yu- 
varlar. FIX ile aynı işlemin sadece pozitif sayılarla olan kısmı yapılabilir. 


Bağlantılı komutlar: CINT, FIX, ROUND 


JOY 


JOY (<tam sayı ifadesi >) 


19 PRINT “Programı durdurmak için -”; 
20 PRINT “Joystick ile çalış” 


30 IF JOY (9) < > 0 THEN END 
4) GOTO 19 
run 


FONKSİYON: tam sayı ifadesi nde Joystick'ten bit seviyesinde (0 veya 1) be- 
lirtilen sonuçları okur. 


Bit Desimal (ondalık) 
9: Yukarı 1 
1: Aşağı 2 
2: Sola Ji 
3: Sağa 8 
4: Ateş2 16 
5: Ateş l 32 


Eğer joystick sola hareket ettirilip üzerindeki ““ateş”* butonuna basılırsa JOY (0) 
fonksiyonu ondalık değeri 20'ye getirir: 16 (ateş 2) * 4(sola) 20 
Joystick ile ilgili geniş bilgiyi ““Bilginiz için”? adlı konuda bulabilirsiniz. 


Bağlantılı komutar: CLEAR INPUT, INKEY 


KEY 


KEY < genişleme işaret sayısı >, <dizi ifadesi > 


KEY 11, “border 13:paper 9:pen 1:ink 9,13:ink 1,0 mode 2:list” - CHR$(13) Şimdi- 
de ENTER'e basın... 


KOMUT: Dizi ifadesini genişleme işaret sayısındaki belirtilmiş tuşa ayarlar. O ile 
31 arasında 32 genişleme işareti vardır. Bunlar 128”den 159'a kadar tuş değerlerin- 
de tutulurlar. 128 tuştan (sayısal tuş takımında 0) 140'a (CONTROL ENTER) ka- 
dar olan tuşlar O'dan 9a kadar sayıları yazmayı ihmal edebilirler. Ondalık noktası, 
RETURN ve RUN”RETURN, daha önceden belirlenmiştir, fakat diğer dizi ifa- 
desine tekrar ayarlanabilir. Genişleme işareti 13'den 31'e kadar (141'den 159'a ka- 
darki tuş değeri) daha önceden belirlenmiş boş dizidir. Fakat sonraki örnekte 
göreceğiniz gibi genişletilebilir. KEY komutuyla verilen genişleme işareti sayısı 9*dan 
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31'e kadardır veya tercihe bağlı olarak 128'den 159'a kadar tuş değerlerine yansı- 
tılabilir (*“Bilginiz için adlı konuda tuş takımlarına bakınız.) Toplam 120 karakter 
dizi ifadesinde genişletilebilir. Aşırı genişlemede “Improper argume 
n t” adlı hata mesajı ekrana gelir. 


Bağlantılı komut: KEY DEF 


KEY DEF 


KEY DEF < tuş numarası >, <tekrar >,|,< normal >|,< shiftli >(,< kontrol)|) | 


KEY 159, “Bu TAB tuşudur” 
KEY DEF 68,1,159 


ŞimdilTABltuşuna basın... 

KOMUT: (ile 79 arasında değişen, belirlenmiş tuş numarasından dönen tuş değe- 
rini belirler (açıklama için konu 7 bölüm 4'e bakınız). Normal, shiftli ve kontrol 
parametreleri, tuş yalnız, SHIFT ile veya CONTROL ile birlikte basıldığında, geri 
dönerken alacakları değerleri içermelidir. Bu parametrelerin her biri tercihe bağlı- 
dır. 


Tekrar.parametresi tuşu otomatik tekrar fonksiyonuna ayarlar (4 off, 1 on). Oto- 
matik tekrarın hızı SPEED KEY komutuyla ayarlanabilir. 


Yukardaki örnekte 159 no'lu tuş (genişleme işareti 31'in eşdeğeri) öne genişleme 
dizisine tahsis edilir, sonra KEY DEF komutu tuş 68'i (TAB tuşu) otomatik tekrar 
(1) olarak tanımlar ve yalnız basılınca normal değeri 159'a döner. 


Yukardaki örnekte normal fonksiyona geri dönmek için: 


KEY DEF 68,9,9 
yazılmalıdır. Burada 9 TAB'ın ASC 11 değeridir. 


Bağlantılı komutlar: KEY, SPEED KEY 


LEFT$ 


LEFT$(<dizi ifadesi >, < gerekli uzunluk >) 
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19 CLS 

20 a$—“AMSTRAD” 
30 FORn—1TO7 

40 PRINT LEFT$(a$,n) 
50 NEXT 

run 


FONKSİYON: dizi ifadesinden, soldan itibaren gerekli uzunluk parametresinde 


belirtilen kadar karakter çıkartılarak getirilir. Eğer dizi ifadesi, gerekli uzunluk- 
dan daha kısa ise tüm dizi ifadesi getirilir. 


Bağlantılı komutlar: MID$, RIGHT$ 

LEN 

LEN (<dizi ifadesi >) 

19 LINE UNPIT “Bir cümle yazın”;a$ 

20 PRINT “Cümle”; 

30 PRINT LEN(a$);“'karakter uzunluğundadır.” 


run 


FONKSİYON: dizi ifadesinin toplam karakter sayısını verir. 


Bağlantılı komut: Yok 
LET 


LET <değişken > — < ifade > 

LET x — 190 

KOMUT: bir değeri bir değişkene tahsis eder. Eski BASIC”den bir kalıntıdır. Eski 
BASIC yetiştirme el kitaplarında uyum sağlamanın dışında AMSTRAD BASIC”- 
de bir yararı yoktur. Yukardaki örnek şöylede yazılabilir: 

xX — 190 

Bağlantılı komut: Yok 


LINE INPUT 


LINE INPUT | # <kanal ifadesi >,J1:)( <tırnak içine yazılacak ifade ayırıcı > | 
<değişken dizisi > 
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10 LINE INPUT “Metinden bir satır yazın”;a$ 
20 CLS 

30 PRINT “Değişken şimdi şuna eşittir:-” 

40 PRINT a$ 

run 


KOMUT: Belirtilen kanaldan metnin tam bir satırını giriş olarak kabul eder (eğer 
kanal belirtilmemişse 0 kanalından kabul eder.) İlk seçmeli noktalı virgül satır ba- 
şını önler. 


Ayırıcı o noktalı virgül veya virgül olmalıdır. Noktalı virgül soru işaretinin gö- 
rünmesine sebep olur; virgül soru işaretini önler. 


Tuş takımından girdiler RETURN tuşuna basıldığında son bulur. 
Disk (veya kaset) kanal 9'dan girişler alınan bir carriage return ile sona erdirilir 
yada 255 karakterlik bir dizi değişkeni tarafından sona erdirilir. 


Bağlantılı komutlar: INPUT 
LIST 


LIST < satır numara aralığı >, |, # < akıntı ifadesi > | 
LIST 100-1000, # 1 


KOMUT: Verilen bir kanaldan program satırlarını listeler. Kanal # g daha önce- 
den belirlenmiş ekran kanalıdır ve # 8 ise yazıcı (printer) kanalıdır. Listeleme ESC?e 
bir defa basmak suretiyle beklemeye alınabilir ve ara çubuğuna (space bar) basa- 
rak tekrar başlatılır. ESC'e iki kere basmak listelemeyi tamamen durdurup direkt 
mod'a geçer. satır numara aralığındaki ilk ve son rakkam listelemeye başlanacak 
satırı veya listelemenin son satırını belirtir. 


Şayet tek rakkam varsa, ya proramın başından itibaren araya kadar, veya oradan 
programın sonuna kadar olan satırlar ekrana gelir. 

LIST -200 

veya 


LIST 58- 


Bütün programın listesini isterseniz 
LIST yazmanız yeterlidir. 
Bağlantılı komut: Yok 
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LOAD 


LOAD <dosya adı > |, <adres ifadesi >| 
LOAD “discfile.xyz”,&2AF8 


KOMUT: BASIC programı diskten belleğe yükler, bunu yaparken bellekte her- 
hangi bir program varsa yüklediği bu programın yerine geçer. Seçenekli adres ifa- 
desi belirlenmişse bir binary dosyayı o adrese yükler. 


Korunmuş bir BASIC programı LOAD komutunu kullanarak yüklenmemelidir çün- 
kü bellek tarafından bozulabilir. Bunun yerine RUN veya CHAIN komutlarını kul- 
lanın. : 


Bağlantılı komutlar: CHAIN, CAHIN MERGE, MERGE, RUN, SAVE 
LOCATE 


LOCATE (< kanal numarası >,| < x -koordinatı >,< y-koordinatı > 


19 MODE 1 

20 FORn—-11020 

30 LOCATE n,n 

40 PRINT CHR$ (143);“'yer” 
50 PRINT n;“ in 

60 NEXT 

run 


KOMUT: Yazı kursörünü, belirtilen kanaldan, x ve y koordinatları belirtilmiş 
pozisyona yerleştirir. Kanal #9 daha önceden belirlenmiş kanaldır. 


Bağlantılı komut: WINDOW 


LOG 


LOG (<sayısal ifade >) 


PRINT LOG (9999) 
9.21024037 


FONKSİYON: Sıfırdan büyük sayısal ifade nin tabii logaritmasını hesaplar. 
Bağlantılı komutlar: EXP,LOGIĞ 
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LOG10 
LOG10 (<sayısal ifade >) 


PRINT LOG10(9999) 
3.99995657 


FONKSİYON: Sıfırdan büyük sayısal ifade'nin 10 tabanına göre logaritmasını he- 
saplar. 


Bağlantılı komutlar: EXP, LOG 


LOWER$Ş 
LOWER$ (<dizi ifadesi >) 


19 a$ “HARFLERİN NASIL DEĞİŞTİGİNİ GÖRÜN” 
20 PRINT LOWERS (a$ 4 “LOWER CASE”) 


FONKSİYON: Belirlenmiş dizi ifadesini büyük harfler, küçük harf olacak şekilde 
kopye eder ve yeni diziye götürür. Fonksiyon karışık gelen (büyük ve küçük harf) 
girdilerin düzenlenmesinde faydalı bir yoldur. 


Bağlantılı komut: UPPER$ 
MASK 


MASK (<tam sayı ifadesi >|/, <ilk nokta ayarlaması >| 


19 MODE &:INK 5,21:INK 8,16 

20 MOVE -14034 RND,490 * RND 
30 WHİLE XPOS Oo 644 

4) FOR x -1T08 

50 MASK 21 (8-x) 

60 DRAWR 32,9, x ,1:MOVER -32,0 
70 NEXT 

80 MOVER 34,9 

90 WEND: GOTO 24 

run 


KOMUT: Çizgi çizmede kullanılan şablon veya maskeyi ayarlar. Tam sayı ifade- 
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sinin 0 ile 255 arası olan değeri birbirlerine bitiş her 8 pikselik grubun bitlerinin 
ON (1) veya OFF (0) yapar. 


İlk nokta ayarlaması çizginin ilk noktasının çizilip (1), çizilmeyeceğini (0) hesap- 
lar. 


Bu iki parametreden birisi ihmal edilebilir, fakat ikisi birlikte ihmal edilemez. Eğer 
bir parametre kullanılmazsa kısmi ayarlama değişmez. 


Bağlantılı komutlar: DRAW, DRAWR, GRAPHICS PAPER, GRAPHICS PEN 
MAX 


MAX (< sayısal ifade listesi >) 


10 n—66 

20 PRINT MAX (1,n,3,6,4,3) 
run 

66 


FONKSİYON: Sayısal ifadedeki en yüksek değeri alır. 


Bağlantılı komutlar: MIN 
MEMORY 


MEMORY < adres ifadesi > 
MEMORY &20AA 


KOMUT: Basic hafıza parametrelerini en yüksek byte adresine ayarlayarak eldeki 
hafıza miktarını değiştirmek yeniden ayarlamakta kullanılır. 


Bağlantılı komutlar: FRE, HIMEM, SYMBOL, SYMBOL AFTER 
MERGE 


MERGE < dosya ismi > 


KOMUT: Diskten program yükler ve bellekteki halihazırdaki programa ekler 
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Yeni programdaki mevcut satır numaraları ile birleştirilen eski programın aynı nu- 
maralı program satırlarının üzerine yeni programın satırı yazılır. 


Korunmaya alınmış (SAVE “ ”,p) dosyaları halihazırdaki program ile birleştiri- 
lemezler. 


Bağlantılı komutlar: CHAIN, CHAIN MERGE, LOAD 


MID$ 


MID$ (<dizi ifadesi>, < başama pozisyonu > |,<altdizi uzunluğu > |) 


1 MODE 1: ZONE 3 

20 a$—“ANSIKLOPEDİ” 

39 PRINT “Bana nasıl hecelendiğini göster”;a$ 
40 PRINT “TAMAM....”:PRINT 

50 FORn—1 TO LEN (a$) 

60 PRINT MID$ (a$,n,1) 

70 FORt—11TO 709:NEPT tın 

80 PRINT:PRINT 

90 INPUT “Şimdi başka bir harf girin”;a$ 
194 GOTO 59 

run 


FONKSİYON: Dizi ifadesinin (< başlama pozisyonu >ndan başlayarak < alt 
dizi uzunluğu boyunda yeni alt diziyi belirler. Eğer < alt dizi uzunluğu > para- 
metresi belirlenmemişse < başlangıç pozisyonu > ndan sonra < dizi ifadesi >nden 
kalan kısım belirtilir. 


Eğer başlangıç poisyonu, dizi ifadesinin toplam uzunluğundan büyükse boş dizi 
belirtilir. Başlangıç pozisyonunun uzunluğu 1'den 255'e; alt dizi uzunluğunun bo- 
yu da 0'dan 255'e kadardır. 


Bağlantılı komutlar: LEFT$, RIGHT$ 
MID$ 


MID$ (<dizi değişkeni >,< yerleşme pozisyonu >|,< yeni dizi boyu > | < yeni 
dizi ifadesi > 

19 a$—“hello” 

20 MID$(a$,3,2) — “XX” 
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30 PRINT a$ 
run 
hexxo 


KOMUT: Yeni dizi ifadesi, dizi değişkeni tarafından tanımlanan diziye yerleştirir 
ve yeni dizi boyu kadar karakteri doldurur. 


MID$ bir komut olarak kullanıldığında a$ gibi bir dizi değişkeni kullanılmalı an- 
cak “hello” gibi bir dizi sabiti kullanılmamalıdır. 


Bağlantılı komutlar: LEFT$, RIHGT$ 
MIN 


MIN(<sayısal ifade listesi > ) 


PRINT MIN (3,6,2.999,8,9) 
2.999 


FONKSİYON: Sayısal ifade listesindeki en küçük değeri belirtir. 
Bağlantılı komut: MAX 


MOD 


<Argüman > MOD < argüman > 
PRINT 10 MOD 3 

1 

PRINT 10 MOD 5 

ğ 


İŞLEM: Birinci argümanin ikinci argümana böldükten sonra kalanı bildirir. 


Bağlantılı komut: Yok. 


MODE 


MODE <tam sayı ifadesi > 


140 


dm z m*#iiFm>52 THEN m-9 
20 MODE m 

30 PRINT “Bu, mode";m 

40 PRINT “Şimdi bir tuşa basın” 

50 IFINKEY$—“" THEN 59 ELSE 10 
run 


KOMUT: Ekran modunu, 0,1,2 olarak değiştirir ve ekran ink'ini O'a döndürür 
(bu kullanılan paper ink'i olmamalıdır). Bütün yazılar, grafik penceleri sıfırlanır 
ve yazı ile grafik kursörleri kendi orjinal yerlerine döner. 


Bağlantılı komutlar: ORIGIN, WINDOW 
MOVE 


MOVE <Xx koordinatı>,<y koordinatı >,(,< ink >J(<ink modu >)J | 


19 MODE 1:TAG 

20 Xx —RND x 800-100:y —RND x 430 
30 MOVE Xx ,y 

40 PRINT “Buraya hareket ediyorum”; 
50 GOTO 29 

run 


KOMUT: Grafik kursörünü Xx ve y koordinatları ile belirtilen mutlak noktaya gö- 
türür. Seçmeli ink parametresi grafik pen inkini O ile 15 arası değiştirmek için kul- 
lanılır. Seçmeli ink modu bir sonra yazılacak ink'i hesaplar. 4 ink modu şöyledir. 


0: Normal 

I: XOR (exclusiv OR) 
2: AND 

3: OR 


Bağlantılı komutlar: MOVER, ORGIN, XPOS, YPOS 
MOVER 


MOVER <x uzaklığı >,< y uzaklığı > | <ink> <ink modu >| 


19 MOD 1:TAG:MOVE 9,16 
20 PRINT “Hayatta bazen”; 
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30 FORN—1TO 19 

40 NOVER -32,16 

50 PRINT “yukardasındır”;:NEXT:PRINT “bazende”; 
60 FOR n—1 TO 14 

70 MOVER -64, -16 

80 PRINT “aşağıda”;:NEXT 

run 


KOMUT: Grafik kursörü o anki pozisyonundan izafi bir pozisyona götürür. Bu 
izafi pozisyon x-uzaklığı (ve y-uzaklığı ile belirtilir. Seçmeli ink parametresi gra- 
fik pen ink'ini 0 ile 15 arasında değiştirmek için kullanılır. Seçmeli ink modu bir 
sonra yazılacak ink'i belirler. 4 ink modu yukardaki gibidir. 


Bağlantılı komutlar: MOVE, ORIGIN, XPOS, YPOS 


NEW 


NEW 
NEW 


KOMUT: Bellekteki programı ve değişkenleri siler. Tuş tanımları kaybolmaz, gö- 
rüntü karakteristkileri (mode, pen, paper, ink, vs) değişmez ve ekran temizlenmez. 


Bağlantılı komut: Yok 
NEXT 


NEXT | <değişken listesi > | 


19 FORa-1103 

20 FOR b -9 TO 26 

30 MODE 1 

40 PEN a:BORDER b 

59 PRINT “pen”;a;“border”;b 
60 FOR c—1 TO 509 

70 NEXT c,b,a 

run 


KOMUT: FOR döngüsünün sonunu belirtir. NEXT ortak veya ilgili FOR için ola- 
bilir. Yukardaki örnekte değişken listesi eş kullandıkları FOR komutlarının sıra- 
sıyla ters sıralı olarak yazılmıştır, böylece birbirinin içine yerleşmiş döngüler biri- 
birleriyle kesişmezler. 
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Bağantılı komutlar: FOR, STEP, TO 


NOT 


NOT < argüman > 


IF NOT “ahmet” <“'mehmet” THEN PRINT “doğru” ELSE 
PRINT “yanlış” 


yanlış 


İŞLEYİŞ: Tam sayılar üzerinde bit seviyesinde işlem yapar. Argümandaki her bit?i 
ters çevirir. 

Mantığı ile ilgili daha fazla bilgi için “*“Boş vaktiniz için”? adlı konunun 2. bölümü- 
ne bakın. 


Bağlantılı komutlar: AND, OR, XOR 
ON BREAK CONT 


ON BREAK CONT 

19 ON BREAK CONT 

20 PRINT “Program ESC tuşuna basıp *Break* çıktığında devam edecektir”:PRINT 
30 FORt—1 to 1000:NEXT:GOTO 29 

run 


KOMUT: Programı durdurmak için kullanılan (ESC)J tuşunun işlevini iptal eder 
ve program durmaz, bu yüzden programı çalıştırmadan önce SAVE edin. 


ON BREAK CONT, Program içinde ON BREAK STOP tarafından etkisiz hale 
getirilebilir. 


Bağlantılı komutlar: ON BREAK GOSUB, ON BREAK STOP 


ON BREAK GOSUB 


ON BREAK GOSUB < satır numarası > 


19 ON BREAK GOSUB 40 

20 PRINT “program çalışıyor” 

30 GOTO 24 

40 CLS:PRINT “ESC tuşuna iki defa basın”; 
50 PRINT “ki GOSUB çalışsın” 
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60 FORt-—1 to 2000:NEXT 
70 RETURN 
run 


KOMUT: JESCİ tuşuna iki defa basılınca BASIC'i satır numarasında belirtilmiş 
alt-programa atlamasını bildirir. 


Bağlantılı komutlar: ON BREAK CONT, ON BREAK STOP, RETURN 


ON BREAK STOP 


ON BREAK STOP 

19 ON BREAK GOSUB 44 

20 PRINT “Program işliyor” 

30 GOTO 20 

40 CLS:PRINT“ESC tuşuna iki defa basınız” 

50 PRINT“iki defa basmak GOSUB alt programı çağırır” 
60 FORt—1TO 2009:NEXT 

70 ON BREAK STOP 

80 RETURN 

run 


KOMUT: ON BREAK CONT ve ON BREAK GOSUB komutlarını etkisiz hale 
getirir ve ESC tuşu programı durdurabilir. Yukardaki örnekte ON BREAK GO- 
SUB komutu bir kere çalışabiliyor ve ON BREAK alt programının 70. satırında 
etkisiz hale getiriliyor. 


Bağlantılı komutlar: ON BREAK CONT, ON BREAK GOSUB 


ON ERROR GOTO 


ON ERROR GOTO < satır numarası > 


19 ON ERROR GOTO 6 

20 CLS:PRINT “Eğer hata bulunursa,”; 
30 PRINT “programın listesi çıkar” 
4FORt-—1 TO 4999:NEXT 

50 GOTO 100 

60 PRINT “Hatanın göründüğü satır”; 


70 PRINT ERL: PRINT:LIST 
run 
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KOMUT: Programda bir hata gözlendiği zaman belirtilen satır numarasına atlar. 


ON ERROR GOTO 0 komutu hata satırını çalıştırmaz ve BASIC normal hata ça- 
lışmasına geçer. 


Bir de RESUME komutuna bakın. 


Bağlantılı komutlar: DERR, ERL, ERR, ERROR, RESUME 
ON <ifade> GOSUB 


ON < seçici > GOSUB < satır numara listesi > 


19 PAPER 9: PEN 1: INK 9,1 

20 CLS: PRINT “SEÇENEK TABLOSU":PRINT 

30PRINT “1- Border değiştirir”:PRINT 

40PRINT “2- Pen değiştirir”:PRINT 

59PRINT “3- Mode değiştirir”:PRINT 

60INPUT “Tercihinizi girin”;x 

70 ON x GOSUB 99, 119, 130 

84 GOTO 24 

9 b—b-1:IF b<g THEN b—26 

190BORDER b: RETURN 

110 p—p-1:IF p<2 THEN p—26 

120 INK 1,p:RETURN 

1g m—m-1:IFm<0 THEN m—2 

14ğ MODE m:RETURN 

run 

KOMUT: seçicinin değerine göre (0'dan 255'e kadar pozitif tam sayı) alt program 
satırına atlar. Seçici değeri satır numara listesinden seçeceği satır numarasının de- 
ğeri satır numara listesinden seçeceği satır numarasının değerini belirtir. Yukarda- 
ki örnekte Vi seçmek BASIC'i 90'ıncı, 2'yi seçmek BASIC'i 110'uncu ve 3'ü seçmek 
BASIC'i 13'uncu satıra atlatır. 


Eğer seçici değeri 9 veya satır numara listesindeki satır numaraları sayısından yük- 
sekse hiçbir alt satır seçilmez. 


Bağlantılı komutlar: RETURN 
ON <ifade> GOTO 


ON<seçici> GOTO <satır numarası listesi> 

19 CLS:PRINT “SEÇENEK TABLOSU”:PRINT 
20 PRINT “1- Program listesi”:PRINT 

30 PRINT “2- İlave ve düzeltme”:PRINT 

40 PRINT “3- Disk kataloğu”:PRINT 
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50 INPUT “Seçiminizi giriniz”';n 

60 ON n GOTO 84, 90, 190 

70 GOTO 10 

80 LIST 

90 AUTO 

190 CAT 

run 

KOMUT: seçicinin değerine göre (0 ile 255 arası tam sayılar) atlayacağı satırı se- 
çer. Seçici değeri satır numarası listesindeki satır namaralarının sırasını belirler. 
Yukardaki örnekte 1-8'inci, 2-90'ıncı, 3-100”*üncü satıra atlatır. 


Seçicinin değeri O veya satır numarası listesindeki numara sayısından büyük olur- 
sa hiçbir satır seçilmez. 


Bağlantılı komut: YOK 


ON SO GOSUB 


ON SO ( < kanal >) GOSUB < satır numarası > 

19 ENV 1, 15, -1, 1 

20 ON SOf(1) GOSUB 69 

30 MODE 9: ORIGIN 49, 9, 209, 440 100, 300 

40 FORXx -1 TO 13: FRAME:MOVE 339, 200, x 

50 FILL x:NEXT:GOTO 49 

60 READ s:IF s—90 THEN RESTORE: GOTO 64 

70 SOUND 1, s, 25, 15, 1 

80 ON SO (1) GOSUB 60:RETURN 

90 DATA 54, 69, 90, 190, 35, 200, 24, 500,9 

run 

KOMUT: Verilen ses dizisinde boş bir yarık varsa BASIC alt programa gider. Ka- 
nal aşağıdaki tam sayılardan biri olabilir. 

I:A kanalı için 

2:B kanalı için 

4:C kanalı için 

Ses ile ilgili daha fazla bilgi için ““Boş vaktiniz için adlı konunun 2. bölümüne 
bakınız. 

Bağlantılı komutlar: RETURN, SOUND, SO 


OPENIN 


OPENİIN <dosya adı> 

19 REM Diskten bir giriş dosyası aç 

20 OPENİN “Veri dosyası”: INPUT #9,a,a$ 
30 CLOSEIN: PRINT “İki değeri:” 

40 PRINT:PRINT a,a$ 

run 
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KOMUT: Hali hazırda kullanılan programda kullanılmak için diskten bir giriş dos- 
yası açar. Açılacak giriş dosyası ASCII dosyası olmalıdır. 


Yukardaki örnek ancak aşağıda OPENOUT başlığı altında, yaratılan dosyadan 
sonra çalışır. 


Bağlantılı komutlar: CLOSEIN, EOF 


OPENOUT 


OPENOUT <dosya adı > 

19 REM Diske bir çıkış dosyası aç 

20 INPUT “Bir sayı değişkeni verin”;a 

30 INPUT “Bir dizi değişkeni verin';a$ 

40 OPENOUT “Veri dosyası” 

50 WRITE #9,a, a$ 

60 CLOSEOUT:PRINT “Veri diske yüklendi” 
run 


KOMUT: Diske bir çıkış dosyası açar. 


Bağlantılı komut: CLOSEOUT 


OR 


<argüman> OR <argüman> 


IF “ahmet” <“mehmet” OR “köpek”> “kedi” THEN PRINT “doğru” ELSE PRINT “yanlış” doğru 
IF “ahmet” <“mehmet” OR “kedi” >“köpek” THEN PRINT “doğru” ELSE PRINT “yanlış” yanlış 
IF “ahmet” <“mehmet” OR “kedi” > “köpek” THEN PRINT “doğru” ELSE PRINT “yanlış” doğru 


PRINT 1 OR 1 
1 
PRINT 9 OR 9 
9 
PRINT 1 OR 9 
1 


İŞLEM: Tam sayılar üstünde ““boolean” ile işlem yapar. Her iki argüman 9 olma- 
dıkça sonuç Idir. 


Bağlantılı komutlar: AND, NOT, XOR 


ORIGIN 


ORGIN <x>, <yah<sol>, <sag > <üst> <alt>İ 
19 MODE 1:BORDER 13:TAG 
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20 ORIĞIN 9, 0, 100, 540, 309, 190 

30 GRAPHICS PAPER 3:CLG 

40 FOR x -550 TO -314 STEP -14 
50 MOVE Xx ,206 

60 PRINT “bu bir grafik penceredir”; 
70 FRAME:NEXT:GOTO 44 

run 


KOMUT: Grafiğin başlangıç noktasını belirtilen Xx ve y koordinatlarına göre sap- 
tar. 

Grafik penceresinin boyutları seçmeli dört parametre tarafından belirlenir. Eğer 
grafik pencere için belirlenen koordinatları ekran kenarından dışarıda kalıyorsa 
o zaman grafik pencerenin kenarları ekranın kenarları olarak ele alınır. 


Bağlantılı komut: CLG 


OUT 


OUT <kapı numarası >, <tam sayı ifadesi > 
OUT & F8F4, & FF 


KOMUT: tam sayı ifadesi değerini (0-255 arasında) kapı numarasında belirtilen 
adrese gönderir. 


Yeni başlayanlar için kullanılacak bir komut değildir. 


Bağlantılı komutlar: INP, WAIT 


PAPER 


PAPER | # < kanal ifadesi > ,J<ink > 
19 MODE &:PEN g:INK 9,13 

20 FOR p—1 TO 15 

30 PAPER p:CLS 

40 LOCATE 7, 12:PRINT “paper”;p 

50 FORt—1 TO 598:NEXT t,p 

run 


KOMUT: Karakterlerin arka zeminlerinin ink'ini ayarlar. Karakterler ekrana ya- 
zılırken, karakter yazılmadan önce karakter hücresi paper (ink) ile doldurulur (0-15 
arası) (eğer saydam mod seçilmemişse). 


Eğer kanal numarası konulmamışsa PAPER ink için kanal ğ kabul edilir. 
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Değişik PAPER ink sayısı ekran MODE'una bağlıdır. 


Bağlantılı komutlar: GRAPHICS PAPER, INK, PEN 


PEEK 


PEEK (<adres ifadesi >) 

109 MODE 1:ZONE 7 

20 WINDOW 1, 40, 1, 2:WINDOW 4 1, 1, 49,3, 25 
30 PRINT “bellek adresi” 

49 LOCATE 24, 1:PRINT “bellek içeriği” 

5d FOR n—4 TO 655335 

60 P— PEEK (n) 

70 PRINT # 1,n, *(&”; HEX$ (n);)”; 

80 PRINT # 1, TAB (20);p, “(&”;HEX$(p);” ) ” 
90 NEXT 

run 


FONKSİYON: Adres ifadesinde belirtilen bellek adresinde ne olduğunu belirtir (ad- 
res ifadesi &0000 ile &FFFF arasında değişir, yani O ile 65635 arası). Bütün du- 
rumlarda PEEK, RAM'daki adresi belirlenmiş değerine döner (ROM”a değil) ve 
&00 ile &FF (0-255) arasındadır. 


Bağlantılı komut: POKE 


PEN 


PEN | # <kanal ifadesi> ,| <ink>)JI,< arka zemin modu >| 


19 MODE 9:PAPER 9:INK 9, 13 

20 FOR p-1TO 15 

30 PEN p:PRINT SPACE$(47); “pen”;p 
40 FORt-—1 TO 599: NEXT t,p:GOTO 20 
run 


KOMUT: Verilen ekran kanalını yazarken kullanılacak (ink)i ayarlar (0-15 arası). 
Arka zemin modu parametresi şeffat (1) veya mat (0) hale getirilebilir. 


Son iki parametreden biri ihmal edilebilir ancak ikisi birden edilemez. Eğer bir pa- 
rametre çıkarılmışsa ayarlama değişmez. 


Bağlantılı komut: PAPER 
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PI 


Pl 
PRINT Pİ 
3.14159265 


FONKSİYON: Daire çevresinin çapına bölümünden çıkan sabiteyi verir. 
Bağlantılı komutlar: DEG, RAD 
PLOT 


PLOT < Xx -koordinatı >,< y- koordinatı >|,|<ink >) (,< ink modu>J) 
10 MODE 1:BORDER O:PAPER Ö:PEN 1 

20 INK O,G:INK 1,26:1INK 2,13,26:DEG 

30 FOR x-1 TO 360:ORIGIN 320,200 

40 DRAW 504C0S(x) ,50XSIN(x),1 

50 PLOT 1004C0S(x),254£SIN(x) :NEXT 

60 ORIGIN O,0:t-TIME*700:WHILE TIME<t 

70 PLOT RND*640,RND*400:WEND 

80 PLOT RND*640,RND*400,2 

90 6G0TO 9g 


KOMUT: x,y koordinatlarıyla belirlenmiş grafik ekrandaki mutlak pozisyona bir 
nokta çizer. Noktayı işaretleyen (ink) belirtilmelidir (0-15 arası) 


Seçmeli ink modu yazılacak ink'in hali hazırdaki grafik ekrandakine tesirini he- 
saplar. 


4 (ink modu) şöyledir: 


0: Normal 
I: XOR 
2: AND 
3:OR 


Bağlantılı komutlar: GRAPHICS PEN, PLOTR 


PLOTR 


PLOTR < xuzaklığı > , < y uzaklığı >(|,I <ink> Jl, < ink modu >)| 


19 REM kursör tuşunu çizgi çizmek için kullanın 
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20 BORDER 94: GRAPHICS PEN 1 

30 MODE 1:PLOT 329,200 

40 IG INKEY (9) 0 THEN PLOTR 0,1 

50 IF INKEY (1) 0 THEN PLOTR 1,9 

60 IF INKEY (2) -0 THEN PLOTR 09,-1 

70 IF INKEY (8)—0 THEN PLOTR -1,9 

80 IF INKEY 49)—0 THEN 30: REM copy —clear 
90 GOTO 44 

run 


KOMUT: Şimdiki grafik kürsör pozisyonuna bağlantılı olarak x uzaklığı ve y uzak- 
lığı değerleriyle grafik ekranda belirlenmiş pozisyona bir nokta işaretler. Seçmeli 
ink modu yazılacak ink'in grafik ekranındakine tesirini hesaplar. 4 (ink modu) şöy- 
ledir: 

0: Normal 

I: XOR 

2: AND 

3: OR 


Bağlantılı komutlar: GRAPHICS PEN, PLOT 


POKE 


POKE < adres ifadesi>, <tam sayı ifadesi > 
19 FOR m—49152 TO 65535 

20 POKE m, 100 

30 NEXT 

run 


KOMUT: Tam sayı ifadesinin değerini (0-255 arası) direkt olarak adres ifadesinde 
belirlenmiş Z80 belleğine (RAM) yazar. 


Yeni başlayanların kullanacağı bir komut değildir. 


Bağlantılı komut: PEEK 


POS 


POS ( # <kanal ifadesi > ) 

19 MODE 1:BORDER 9:LOCATE 8,2 

20 PRINT “kursörün sol/sağ tuşlarını kullan” 
30 WINDOW 1, 40, 12, 12: CURSOR 1,1 

40 FOR n—1 TO 19:PRINT CHR$(9);:NEXT 
50 IF INKEY (1)< >-1 THEN PRINT CHR$(9); 
60 IF INKEY (8) < >-1 THEN PRINT CHR$(8); 
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70 LOCATE #1,2,24 

80 PRINT #1, “yazı kürsörü”; 

90 PRINT # 1, “yatay pozisyon —”; 
19 PRINT # 1, POS (#0): GOTO 50 
run 


FONKSİYON: Yazı kursörünün, yazı penceresinin sol kenarına göre yatay pozis- 
yonunu bildirir. Kanal ifadesi mutlaka belirtilmelidir ve # g olarak daha önce be- 
lirlenmiştir. 


POS (#8), yazıcı için yatay taşıyıcı pozisyonunu bildirir ki 1 ensol kenardır. 


POS ( #9) disk dosya kanalındaki mantıksal pozisyonu bildirir, örneğin son “'car- 
rige return” sırasında kanala gönderilen yazılacak karakter sayısı. 


Bağlantılı komutlar: VPOS, WINDOW 


PRINT 


PRINT | #< kanal ifadesi >,J(< yazılacak konu listesi > | 


10 a$— “küçük” 

20 b$ — “Bu büyük bir dizidir” 
30 PRINT a$;a$ 

40 PRINT a$,a$ 

50 PRINT 

60 PRINT b$;b$ 

70 PRINT b$,b$ 

run 


KOMUT: Verilen kanala yazılacak konu listesini yazar (eğer kanal numarası be- 
lirtilmemişse, # 9 dan önceden belirlenmiş kanal numarasıdır.) 


Noktalı virgül (;) bilgisayara yeni yazılacak yazıyı, henüz yazılmış yazının yanına 
yazmasını belirtir. BASIC önce yeni yazılacak konuyu aynı satıra sığıp sığmaya- 
cağını kontrol eder, eğer sığmıyorsa noktalı virgüle bakmadan yeni satıra yazar. 


Virgül kullanıldığı zaman bilgisayara yeni yazılacak yazıyı bir sonraki yazı bölge- 
sine yazması belirtilmiş olur. BASIC önce yeni yazılacak yazının yazı bölgesine 
sığıp sığmayacağını kontrol eder, eğer sığıyorsa yazar, aksi takdirde virgüle bak- 
madan yeni bir satıra yazar. 
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PRINT SPC 
PRINT TAB 


PRINT ( # < kanal ifadesi >,J( <yazılacak konu listesi > |J(;) 
ISPC (<tam sayı ifadesi >)J( <yazılacak konu listesi > | 


PRINT | #<kanal ifadesi >,J( < yazılacak konu listesi >|(;) 
(TAB(<tam sayı ifadesi> ))| < yazılacak konu listesi > | 


19 PRINT “Bu spc fonksiyonudur” 
20 FOR x -6 TO 15 

30 PRINT SPC (5) “a”; SPC (Xx) “b” 
40 NEXT 

50 PRINT “Bu tab fonksiyonudur” 
60 FOR x -6 TO 15 

70 PRINT TAB (5) “a”; TAB (Xx) “b” 
80 NEXT 

run 


SPC, tam sayı ifadesinde belirtilen değer kadar boşluk bıraktıktan sonra yazıla- 
cak konu listesini bu boşluğun hemen yanına yazar (yazılacak konu uzunluğu satı- 
ra sığacağını kabul edersek). SPC'yi noktalı virgül ile bitirmek gerekli değildir. 


TAB, yazı penceresinin son kenarına göre boşluk bırakıp yazılacak konu listesinin 
hemen yanına yazar. Eğer geçerli pozisyon gerekli pozisyondan büyükse ““carria- 
ge return” uygulanır ve bir sonraki satırda gerekli pozisyona yazılır. 


PRINT USING 


PRINT | #<kanal ifadesi> || < yazılacak liste >|(;) 
(USING < format kalıbı >J( <ayırıcı > < ifade > | 


19 FOR x -1TO 10 

20 n — 100000*(RND 1 5) 

30 PRINT “güzel”; USING "########,.##"';n 
40 NEXT 

run 


PRINIT USING, PRINT komutuyla yazılacak ifadenin yazı formatının belirtil- 
mesine imkan tanır. Bu format kalıbının belirlenmesiyle mümkün olur. Ayırıcı, 
bir virgül veya noktalı virgül olabilir. Format kalıbı aşağıdaki (format tanımlama 
alanı) kullanılarak yapılmış bir dizi ifadesidir. 
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Sayısal Formatlar 
# Her # hane pozisyonunu tanımlar. Örnek kalıp: ####HH 


Ondalık noktanın yerini belirle. Örnek kalıp: ######.HH# 


il Ondalık noktanın solunda gözükür. Her üç hanede bir (binler için) ayrılaca- 
ğını belirler. Örnek kalıp: ######,.#A# 


Sayıların çevresinde: 


££ (İki hane pozisyonunu belirler) £ işaretinin, ilk hanenin veya ondalık noktanın 
önüne yazılmasını belirler. £, hane pozisyonlarından birini doldurur. Örnek 
kalıp: #£##AHAH,. HH 


** (İki hane pozisyonu belirler) Baştaki herhangi bir boşluğu * ile doldurmasını 
belirtir. Örnek kalıp: **######,.H# 


* *£ (Üç hane pozisyonu belirler) ** ve ££ seçeneklerinin birleştirilmiş halidir. Ör- 
nek kalıp: #*f##HH#H,. HH 


$$ (İki hane pozisyonu belirler) $ işaretinin, ilk hanenin veya ondalık noktasının 
hemen önüne yazılacağını belirtir. $ hane pozisyonlarından birini doldurur. 
Örnek kalıp: $$ ######,.## 


* *$ (Üç hane pozisyonunu belirler) ** ve $$ seçeneklerinin birleştirilmiş halidir. 
Örnek kalıp: **$######,.H# 


* Bu * veya - işaretlerinin uygun şekilde yazılacağını belirtir. Eğer * kalıbın 
başında yer alıyorsa, * işareti sayının baş tarafına yazılır. Eğer * kalıbın 
sonunda yer alıyorsa, işaret sayının sonuna (ve herhangi bir üs alma işlemin- 
den sonra) yazılır. Örnek kalıp: *- ####.#HHH# 


- o Bu- işareti sadece kalıbın sonunda görülebilir. Herhangi bir negatif sayıdan 
sonra yazılacağını belirtir. Eğer sayı pozitif ise bir boşluk bırakır. ““-” işareti 
eğer bu kalıp kullanılmıyorsa daha önceden belirlendiği gibi sayının önüne ko- 
nur. Örnek kalıp: ####.#H#HH- 


WW1Yazılacak sayının üstsel bir şekilde yazılacağını belirtir. Bu hane pozisyonla- 
rından sonra fakat * ve - işaretlerinden önce görülmelidir. Örnek kalıp: 


KAAN 111 4 


Format kalıbı (sayılar için) 20 karakteri aşmamalıdır. 
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Eğer Format kalıbı giriş ifadesi için çok küçük ise örneğin: 
PRINT USING "###H"Z 12345678 


yazılacak sonuç kalıba uyması için kısaltılmaz, bütünlüğü içinde yazılır ancak for- 
mat yanlışlığını belirtmek için önüne “o işareti konur. 


Dizi Formatlar 


19 CLS: a$ — “abcdefghijkimnopgarst” 
20 PRINT “giriş ifadesi — ";a$ 
30 PRINT:PRINT “! belirtici— oo”; 
40 PRINT USING “!”a$ 

59 PRINT:PRINT “ X aralık X belirtici— o”; 
60 PRINT USING “Xx VW a$ 

70 PRINT:PRINT “&belirtici— oo”; 

80 PRINT USING “&”;a$ 

90 GOTO MY 

run 


! Dizinin ilk karakterinin yazılacağını belirtir. Örnek kalıp: ! 


K<aralık > X 


Dizinin ilk x karakterinin yazılacağını belirtir. Karakter sayısi olan Xx kalıpta- 
ki N işaretleri arasında kalan uzunluğa eşittir. Örnek kalıp: X N 


& Bütün dizinin olduğu gibi yazılacağını belirtir. Örnek kalıp: & 


Bir dizi için format kalıbı 255 karakteri geçemez. 


Sayısal ve dizi format kalıpları, dizi değişkenleri ile gösterilebilir. Örneğin: 


190a$— "İLAKAAAK,. HH" 

20 b$—“1” 

30 PRINT USING a$;12345.6789; 
40 PRINT USING b$;““'kuruş” 
run 
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Yazı formatları ile ilgili diğer bilgileri ““Boş vaktiniz için”? adlı konunun 2. bölü- 
münde bulabilirsiniz. 


Bağlantılı komutlar: SPC, TAB, USING, ZONE 


RAD 


RAD 
RAD 


KOMUT: Radyan ile ilgili hesaplamaları ayarlar. BASIC, bilgisayar açıldığında, 
reset'lendiğinde veya NEW, CLEAR , RUN, LOAD), vs. komutlar kullanıldığın- 
da, önceden radyan durumuna ayarlanmıştır. 

Bağlantılı komutlar: ATN, COS, DEG, SIN, TAN 


RANDOMİZE 


RANDOMİZE |< sayısal ifade >| 


RANDOMİZE 123.456 
PRINT RND 
0.258852139 


KOMUT: Sayısal ifadede belirtilmiş sayı kökünden rastgele sayı üretir. BASIC rast- 
gele sayı üreticisi her sayının bir önceki sayıya bağlı olduğu bir rastgele sıra mey- 
dana getirir. RANDOMİZE, rastgele sayı üreticisine yeni bir başlangıç değeri verir, 
bu değer ya kullanıcı tarafından sayısal ifadede verilen değerdir ya da belirtilen 
bir değerdir. 

RAMDONİZE TIME tekrarlaması zor bir sıra yapar. 


Bağlantılı komut: RND 


READ 


READ <değişken listesi > 

19 FORn—1108 

20 READ a$,c 

30 PRINT a$;** "SOUND 1,c:NEXT 

40 DATA işte, 478, burada, 426,8,379,nota 

50 DATA 358, müzikal, 319,bir,284,ölçü,253,için,239 
run 


KOMUT: DATA cümlesinden verileri okur ve değişkenlere verir. Bunu yaparken 
otomatik olarak bir sonraki veriyg geçer. RESTORE komutu okuma noktasını DA- 
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TA cümlesinin başına döndürür. 
Daha geniş bilgi için “Boş vaktinizde” adlı konuya bakın. Bağlantılı komutlar: 
DATA, RESTORE 


RELEASE 


RELEASE <ses kanalı > 

19 SOUND 65, 1000, 100 

20 PRINT “Sesi bırakmak için R tuşuna basın” 

30 IF INKEY$(50) > —1 THEN 30 

40 RELEASE 1 

run 

KOMUT: SOUND komutundaki tutulmuş durumdaki ses kanallarını serbest bı- 
rakır. 


Ses kanalı parametresi 1 ile 7 arasındaki tam sayı değerleridir ve şöyle çalışır: 


: A kanalını serbest bırakır. 

: B kanalını serbest bırakır. 

: A ve B kanalını serbest bırakır. 

: C kanalını serbest bırakır. 

A ve C kanalını serbest bırakır. 

: B ve C kanalını serbest bırakır. 

: A, B ve C kanalını serbest bırakır. 


aa W PEN — 


Daha fazla bilgi için “Boş vaktinizde “adlı konunun 2. bölümüne bakınız. 


Bağlantılı komut: SOUND 


REM 


REM <satırın geri kalanı > 
19 REM Intergalactic Hyperspace Mega-Monster Invaders Deathchase by AMSOFT 
20 REM Copyright AMSOFT 1985 


KOMUT: Programın içine hatırlama ekler. Satırın geri kalanı BASIC tarafından 
yok sayılır (iki nokta üstüste dahil). 


Tek tırnak işareti REM yerine kullanılır sadece DATA cümlesinde O? karakter 
dizisinin başladığını gösterdiğinden kullanılmaz. 


Bağlantılı komut: Yok 
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REMAIN 


REMAIN ( < zamanlayıcı numarası> ) 

19 AFTER 500, 1 GOSUB 40 

20 AFTER 109, 2 GOSUB 54 

30 PRINT “Bu program çalışıyor”: GOTO 34 

40 REM Bu GOSUB programı 80. satırda etkisiz kılındığından çağrılmayacaktır. 
50 PRINT:PRINT “Zamanlayıcı şimdi 1”; 

60 PRINT “REMAIN tarafından etkisiz hale konuldu” 

70 PRINT “Geri kalan zaman birim — ”; 

80 PRINT REMAIN (1) 

run 


FONKSİYON: Zamanlayıcı numarasında belirtilen gecikme zamanlayıcısından ka- 
lan zaman okur ve etkisiz hale getirir. Zamanlayıcı numarası G ile 3 arasındadır. 
Kesiciler ile ilgili fazla bilgi için ““Boş vaktiniz için”? adlı konunun 2. bölümüne 
bakınız. 


Bağlantılı komutlar: AFTER, DI, El, EVERY 


RENUM 


RENUM | < yeni satır numarası > )l,( < eski satır numarası >Il, <artma>1l 
19 CLS 

20 REM Bu satır 123 olacak 

30 REM Bu satır 124 olacak 

40 REM Bu satır 125 olacak 

RENUM 123, 20, 1 

LIST 


KOMUT: Program satırlarını yeniden numaralar. Eski satır numarası yeniden nu- 
maralamaya başlanacak satırı belirti. Eğer eski satır numarası belirtilmemişse, nu- 
maralama |. satırdan başlar. Yeni satır numarası parametresi numaralanacak satırın 
yeni satır numarasını belirler, eğer belirtilmemişse numaralama 10'dan başlar. Artma 
parametresi numaralanacak satırların artma miktarıdır, eğer belirtilmemişse 10 kabul 
edilir. RENUM bütün GOSUB, GOTO gibi satır çağırma komutlarını da içine alır. 
Bununla beraber KEY komutunda olduğu gibi dizi ifadelerindeki satır numarası 
referanslarını değiştirmez (aynı şekilde REM, CHAIN, CHAIN MERGE). Satır 
numaraları 1'den 65535'e kadar geçerlidir. 


Bağlantılı komutlar: DELETE, LIST 
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RESTORE 


RESTORE |< satır numarası > | 


19 READ a$:PRINT a$;” ”; 

20 RESTORE 54 

30 FOR t—1 TO 50ğ:NEXT:GOTO 10 
40 DATA restore'dan sonra data tekrar 
50 DATA tekrar okunabilir 

run 


KOMUT: Okuma noktasını ilk DATA cümlesinin sonundan satır numarasında be- 
lirtilen DATA satırının başına götürür. Bu parametreyi koymazsak okuma nokta- 
sını birinci DATA satırının başlangıcına iade eder. Daha fazla bilgi için ““Boş 
vaktinizde”” adlı konunun 2. bölümüne bakınız. 


Bağlantılı komutlar: DATA, READ 


RESUME 


RESUME | <satır numarası> | 

14 ON ERROR GOTO 64 

20 FOR X— 10 TO 4 STEP-1:PRINT 1/X:NEXT 

30 END 

49 PRINT “Hatadan sonra buraya git” 

50 END 

60 PRINT “Hata numarası:”;ERR” satırdadır”;ERL 
70 RESUME 40 

run 


KOMUT: ON ERROR GOTO komutu ile bir hata yakalandığı ve işleme konuldu- 
ğu zaman normal program yürütülmesine devam eder. Eğer devam edeceği satır 
numarası belirtilmezse hatanın bulunduğu satırdan program tekrar başlar. Yukar- 
daki örnekte satır numarasını çıkartıp tekrar deneyin. 


70) RESUME 
run 


Bağlantılı Komutlar: DERR, ERL, ERR, ERROR, ON ERROR GOTO, RESU- 
ME NEXT 


RESUME NEXT 


RESUME NEXT 
19 ON ERROR GOTO 94 


159 


20 PRINT “Her seferinde RETURN tuşuna basın” 
30 INPUT “1”a 

40 INPUT “2”'a 

50 inpot “3”;a :REM syntax error! 

60 INPUT “4”'a 

7 INPUT “5'a 

80 END 

90 PRINT “Hata”;ERR;“satırdadır”;ERL 

1g RESUME NEXT 

run 


KOMUT: ON ERROR GOTO komutu ile yakalanan ve işleme konulan hatadan 
sonra programı normal çalışmasına devam ettirir. 


Bağlantılı komutlar: DERR, ERL, ERR, ERROR, ON ERROR GOTO, RESUME 


RETURN 
RETURN 


19 GOSUB 50:PRINT “GOSUB'dan sonra”: END 
50 FOR n—1 TO 20 

60 PRINT “alt program” 

70 NEXT:PRINT 

80 RETURN 

run 


KOMUT: Alt proramın sonunu belirtir. BASIC alt programdan GOSUB komu- 
tundan sonraki emire döner. 


Bağlantılı komut: GOSUB 


RIGHT$ 


RIGHT$ ( <dizi ifadesi >, < gerekli uzunluk > ) 


19 MODE 1: a$— “CPC6128 bilgisayar” 
20 FORn—1 TO 16: LOCATE 4f1-n,n 

30 PRINT RIGHT$ (a$,n) 

40 NEXT 

run 


FONKSİYON: Gerekli uzunluk parametresinde belirtilen konum dahil dizi ifade- 
sinin sağından çıkartır. Eğer dizi ifadesi gerekli uzunluktan daha kısa ise bütün 
dizi ifadesi geri gelir. 
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Bağlantılı komutlar: LEFT$, MID$ 


RND 


RND ((< sayısal ifade>)| 

10 RANDOMİZE 

20 FOR x <1TO -1 STEP -1 

30 PRINT “rnd parametresi — ”; x 
40 FORn—-1TO6 

59 PRINT RND (Xx) 

60 NEXT n,x 

run 


FONKSİYON: Eğer sayısal ifade pozitif değerse veya belirtilmemişse sıradaki rast- 
gele sayıyı getirir. 


Eğer sayısal ifadenin değeri sıfır ise üretilen son rastgele sayının aynısını verir. 


Eğer sayısal ifadenin değeri negatif bir sayı ise yeni bir rastgele sayı dizisi başlar 
ve ilk numarasını verir. 


Bağlantılı komut: RANDOMİZE 


ROUND 

ROUND (<sayısal ifade>|/, <desimal>)) 
19 FORn—4TO -44 STEP -1 

20 PRINT ROUND (1234.5678,n), 

30 PRINT “tamsayı ifadesi ile”;n 


40 NEXT 
run 


FONKSİYON: Sayısal ifadeyi desimal parametresinde belirtildiği gibi desimal sa- 
yısına veya 10 tabanlı üstel ifadeye yuvarlar. Eğer desimal sıfırdan küçükse o za- 
man sayısal ifade mutlak bir tam sayıya yuvarlanır, öyleki desimaldaki sayıda sıfır 
noktasından önceki yere yerleştirilir. 


Bağlantılı komutlar: ABS, CINT, FIX, INT 
RUN 


RUN <dizi ifadesi > 
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RUN “disc” 


KOMUT: BASIC veya binary programı disk'ten yükler ve çalışmaya başlatır. Da- 
ha önce yüklenmiş BASIC programı hafızadan silinir. 
Korunmuş BASIC programları bu sebepten dolayı doğrudan RUN edilebilir. 


Bağlantılı komut: LOAD 


RUN 


RUN | <satır numarası >| 


RUN 209 


KOMUT: Hali hazırdaki BASIC programını belirtilen satır numarasından itiba- 
ren çalıştırır. Satır numarası belirtilmemişse programı başından çalıştırır. RUN bütün 
şimdiki program değişkenlerinin değerlerini sıfırlar. Korunmalı programlar yük- 
lendikten sonra bu şekilde RUN edilmemelidir. 


Bağlantılı komutlar: CONT, END, STOP 


SAVE 


SAVE <dosya adı >|, <dosya tipi >)J(, < binary parametreler >| 
SAVE “discfile.xyz” 


....dosyayı normal, korunmamış BASIC mod'da saklar. 
SAVE “discfile.xyz”,P 


....dosyayı korunmuş BASIC mod'da saklar 
SAVE “discfile.xyz”,A 


....dosyayı ASCII mod'da saklar 
SAVE “discfile.xyz',B,8909,3999, 8901 


....dosyayı Binary mod'da saklar. Örnekte bilgisayarın belleğini 8000 adresinden 
başlayarak saklar, dosya uzunluğunu 3000 olarak tesbit eder, seçmeli girme adresi 
8001'dir. 


KOMUT: Bellekte bulunan programı disk?e saklar. Bir binary dosya, diskte sak- 
lanan bir bellek alanıdır. Binary parametreleri şunlardır: 
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< başlangıç adresi >, <dosya uzunluğu >|, <giriş noktası >| 


Ekran belleği Binary olarak saklanabilir. Bu ““screen dump” (ekran dökümü) ola- 
rak bilinir ve aşağıdaki komut kullanılarak gerçekleştirilir: 


SAVE “screen”,B,&C000,&4000 
Daha sonra ekrana geri yüklemek için; 
LOAD “screen” 


Bağlantılı komutlar: CHAIN, CHAIN MERGE, LOAD, MERGE, RUN. 


SGN 


SGN (< sayısal ifade > ) 


19 FORN—200TO -240 STEP -20 

20 PRINT “SGN”; 

30 PRINT SGN (n);n;“'değeri için dönüyor” 
40 NEXT 

run 


FONKSİYON: Sayısal ifadenin işaretini saptar. Sayısal ifade sıfırdan küçükse -1 
getirilir, sayısal ifade sıfır ise O getirilir, son olarak sayısal ifade sıfırdan büyükse 
I getirilir. 


Bağlantılı komut: ABS 


SIN 


SIN (< sayısal ifade >) 


19 CLS:DEG:ORIĞIN 0,200 

20 FOR n—9TO 720 

30 Y —SIN (n) 

40 PLOT n*640/720,198*y:NEXT 
50 GOTO 50 

run 


FONKSİYON: Sayısal ifadenin sinüsünü hesaplar. 


Bağlantılı komutlar: ATN, COS, DEG, RAD, TAN 
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SOUND 


SOUND < kanal durumu >< ton periyodu > |, <süre >(,“ volume > |, <volu- 
me zarfı >|, <ton zarfı >f, <gürültü periyodu > |111J 


19 FORZ—0TO 4095 
20 SOUND 1,z,1,12 
30 NEXT 

run 


KOMUT: Bir ses programlar. Komutun parametreleri: 


PARAMETRE |: < kanal durumu > 


Kanal durumu parametresi 1'den 255'e kadar bir tam sayıdır. Parametre bir bit'e 
karşılıktır. Kanal durumunun binary değerinin bit'i aşağıdakileri belirler: 


Bit 9; (on tabanlı o 1) sesi A kanalına gönder. 
Bit 1: (on tabanlı (o 2) sesi B kanalına gönder. 
Bit 2: (on tabanlı (o 4) sesi C kanalına gönder. 
Bit 3: (on tabanlı (o 8) kanal A ile randevu 
Bit 4: (on tabanlı 16) kanal B ile randevu 

Bit 5: (on tabanlı 32) kanal C ile randevu 
Bit 6: (on tabanlı 64) ses kanalını tut. 

Bit 7: (on tabanlı 128) ses kanalını bırak. 


Kanal durumu parametresi 68'in anlamı: ““sesitut 064 konumunda C kanalına 
(4) gönder” demektir. 


PARAMETRE 2: < ton periyodu > 

Bu parametre sesin frekansını belirler veya diğer bir deyişle hangi nota olduğunu 
belirler. (do, re, mi, vs.) Her notanın bir ayar numarası vardır ve bu numara ton 
peyiyodu o 'dur. ““Bilginiz için” adlı konuya bakın. 

PARAMETRE 3: < süre > 

Bu parametre sesin uzunluğunu ayarlar diğer bir deyişle ““nc kadar sürecek”'dir. 
Parametre saniyenin 0.01'lik birimleriyle çalışır ve eğer osüre 'yi belirtmezseniz 


bilgisayar saniyenin beşte biri (0.20 sn.) ne daha önceden ayarlanmıştır. 


Eğer süre parametresi sıfır ise ses belirlenen volume ses şiddeti o zarfının 
sonuna kadar sürer. 
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Eğer süre parametresi negatif ise belirlenen ses şiddeti zarfı (osüre 'nin mutlak 
değeri kadar tekrar edilir. 


PARAMETRE 4: < ses şiddeti > 


Bu parametre bir notanın başlangıç ses şiddetini belirtir ve 0 ile 15 arasındaki de- 
gerleri alabilir. “*” kapalı, ““15” en yüksek ses şiddetidir. Eğer herhangi bir sayı 
belirtilmemişse, bilgisayar daha önceden belirlenmiş 12'yi kullanır. 


PARAMETRE S5: < ses şiddeti zarfı > 


Notanın kalış süresince volume (ses şiddeti) değiştirmek için kullanılır ve ayrı bir 
komut olan ENV ile ses şiddeti zarfı belirleyebilir ayrıca 1*den 15*e kadar 15 deği- 
şik ses şiddeti zarfı meydana getirebilirsiniz. Ses şiddeti zarfı parametresi, SOUND 
komutunda kullanılmak için, uygun bir ses şiddeti zarfı referans numarası çağırır. 


ENV komutunun tarifine bakınız. 
PARAMETRE 6: <ton zarfı> 


Notanın kalış süresince ton'un veya frekansının değiştirilmesi için kullanılır, ton 
zarfını belirlemek için ayrı bir komut olan ENT'yi kullanabilirsiniz ve 1'den 15'e 
kadar değişen 15 ayrı ton zarfı meydana getirebilirsiniz. o Ton zarfı oparametre- 
si, SOUND komutunda kullanılmak için, uygun bir ton zarfı referans nemarası 
çağırır. Eğer ENT komutunda negatif bir zarfı belirlemişseniz SOUND komutun- 
daki zon zarfı parametresindeki bu negatif sayının mutlak değerini kullanır. ENT 


komutunun tarifine bakınız. 

PARAMETRE 7: < gürültü> 

Gürültü parametresi 0 ile 31 arasında değiştirilerek sese ilave edilecek gürültüyü 
(beyaz gürültü) kapamak veya eklemek mümkündür. Bu konuda daha fazla bilgi 


için “Boş vaktinizde” adlı konuya bakın. 


Bağlantılı komutlar: ENT, ENV, ON SO GOSUB, RELEASE, SO 


SPACEŞ 
SPACES$( <tam sayı ifadesi> ) 


19 MODE 1 
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20 PRINT “Benimle senin arana”; 
30 PRINT SPACE$Ş (9); 

40 PRINT “9 boşluk koy!” 

run 


FONKSİYON: Tam sayı ifadesi nde belirtilen uzunlukta bir boşluk yaratır. 


Bağlantılı komutlar: SPC, STRING$, TAB 


SPC 
(PRINT SPC'ye bakın) 


SPFED INK 


SPEED INK <periyod I>, <periyod 2 > 


19 BORDER 7, 18 

20 FOR i-30 TO 1 STEP -1 
30 SPEEK INK ii 

40 FORt—1 TO 708: NEXT tji 
run 


KOMUT:INK ve BORDER komutunda belirtilen iki ink renginin aralarında de- 
öişme hızını ayarlar. (oPeriyod I kullanılacak 1. rengin, 0.02 sn.lik birimlerde, 
zamanını belirtir; periyod 2 ise ikinci rengin zamanını ayarlar. 


Renk ve tekrar hızlarını seçerken dikkatli olup manyetik etkilerden kaçınılmalısı- 
niz. 


Bağlantılı komutlar: BORDER, INK 


SPEED KEY 


SPEED KEY <başlama gecikmesi >, <tekrar periyodu> 
19.CLS:FOR k—7 TO 1 STEP -2 
20 PRINT “İsminizi yazın, sonra RETURN” 
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30 SPEED KEY k,k 

40 LINE INPUT a$:NEXT 

50 PRINT “Bu çok hoş bir ad!” 
run 


KOMUT: Tuş takımının otomatik tekrar hızını ayarlar. o Başlama gecikmesi 
parametresi, otomatik terrar başlamadan zamanı 0.02 sn.lik birimlere ayarlar. 


SPEED KEY sadece otomatik tekrarları daha önceden belirlenmiş tuşlarda veya 
KEY DEF komutu ile otomatik tekrara ayarlanmış tuşlarda çalışır. 


Başlama gecikmesi 'ni küçük değerler ile çalışması istendiğinde tuş takımının 
önceden ayarlanmış durumuna çevirmek için sayısal tuşlardan birine önprogram 
yapmak gerekir. 


KEY 9, “SPEED KEY 309,2” 4 CHR$(13) 
SPEED KEY'i önceden belirlenmiş değerine, f tuşuna basıldığında, resetler. 


Bağlantılı komut: KEY DEF 


SPEED WRITE 
SPEED WRITE <tam sayı ifadesi > 


SPEED WRİTE 1 


KOMUT: Eğer bağlı ise kasete yazılmasının veya saklanmasının hızını ayarlar. Ka- 
sete tam sayı ifadesi 1 iles, 2000 baud (bit/sn.); tam sayı ifadesi 0 ise 1000 baud 
yazılabilir. Teypten bir dosya yüklerken bilgisayar otomatik olarak doğru yükle- 
me hızını seçer. 


Yüksek data verimliliği için SPEED WRITE 0 kullanın. SPEED WRITE komutu- 
nun disk operasyonuna hiç bir etkisi yoktur. 


Bağlantılı komutlar: OPENOUT, SAVE 
SO 


SO (<kanal>) 


19 SOUND 65, 100, 100 
20 PRINT S0 (1) 
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run 
67 


FONKSİYON: Belirtilen kanaldaki ses kuyruğunun durumunu belirtemk için kul- 
lanılır. Kanal tam sayı olmalıdır ve şu değerlerden biri olabilir: 


I: A kanalı için 


2: B kanalı için 
4: C kanalı için 


SO fonksiyonu bir bit karşılığı tam sayıdır: 

- Bit O,I ve 2: kuyrukdaki serbest giriş adedi 

- Bit 3,4 ve 5: kuyruğun başındaki buluşma durumu 
- Bit 6 : kuyruğun başı tutulmuş 

- Bit 7 : kanal halen aktif 


Bit enaz, bit 7 en sık kullanılandır. 


Yukarıdada görüldüğü gibi eğer Bit 6 ayarlanmışsa Bit 7 ayarlanmaz (bunun tersi 
de geçerlidir). Aynı şekilde 3, 4 ve 5. Bitler ayarlanmışsa 6 ve 7. Bitler ayarlana- 
maz. 


Bu konuda daha fazla bilgi için ““Boş vaktinizde”” adlı konunun 2. bölümüne ba- 
kınız. 


Bağlantılı komutlar: ON SO GOSUB, SOUND 


SOR 


SOR (< sayısal ifade>) 
PRINT SOR (9) 


FONKSİYON: Belirtilen ( sayısal ifade S'nin kare kökünü alır. 


Bağlantılı komut: Yok 


STEP 
(FOR komutuna bakın) 
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STOP 

STOP 

19n-1 TO 34:PRINT n:NEXT 

20 STOP 

30 FOR N-31 TO 64 :PRINT n:NEXT 


run 
cont 


KOMUT: Programın yürütülmesini, BASIC'in CONT komutu ile yeniden başla- 
tılacak şekilde durdurur. STOP, programı belli bir noktada düzeltmek için dur- 
durmakta kullanılır. 


Bağlantılı komutlar: CONT, END 


STR$ 


STR$ ( <sayısal ifade> ) 


10 a-&FF :REM 255 hex 
20b—&Xx1111 :REM 15 binary 
30 eh kile li 

40 PRINT c$ # str$(a * b) * c$ 
run 

kk o7gr.” 


FONKSİYON: Sayısal ifadeyi ondalık diziye çevirir. 


Bağlantılı komutlar: BIN$, DEC$, HEXŞ$, VAL 


STRING$ 


STRING$ ( <uzunluk>, <karakter belirticisi> ) 


PRINT STRING$ (40, “x” 


KAKKKKAİKİKÜKÜKKEKEİKDKÜÖOKOKEOKDOİAÜOKÜÖOKDOKO&OAUOKOAKKK Akk kkkkkkkkkk 


FONKSİYON: Belirtilen bir karakterden oluşan uzunluğu belirlenmiş sayıda tek- 
rarlanan bir dizi ifadesi verir. Yukardaki örnek aşağıdaki gibi de yazılabilir: 


PRINT STRING$ (40,42) 
KRKKRRAKARAROAKAOROAEKERDERRDRRAkkkkkkkkkkkk 
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Karakter belirticisi 42, ““***nın ASCII değeridir. 


Diğer bir yazılış şekli de PRINT STRING$ (40,CHR$(42))dir. 
Bağlantılı komut: SPACE$ 


SWAP 
(WINDOW SWAP komutuna bakın) 


SYMBOL 


SYMBOL <karakter numarası >, <sıra listesi > 


19 MODE 1: SYMBOL AFTER 145 

20 row1 — 255:REM binary 11111111 

30 row2 — 129:REM binary 14009901 

40 row3 — 189:REM binary 19111191 

50 row4 — 153:REM binary 14911991 

60 row5 — 153:REM binary 14911901 

70 row6 — 189:REM binary 19111101 

80 row7 — 129:REM binary 19990001 

80 row8 — 255:REM binary 11111111 

140 PRINT “110. satır i harfini (105) olarak tarif ediyor. Bazı i'ler yazın ve görün! 
Sonra programı listeleyin” 

119 SYMBOL 145, row1, row2, row3, row4, row5, row6, row7, row38, 
run 


KOMUT: Ekrandaki karakterin şeklini tekrar tanımlar. Her iki parametrede 0 ile 
255 arasında bir tam sayı olabilir. 


Yeni tanımlanan bir karaktere CPC6128 hafızasında yer ayırmak için bilgisayar 
aşağıdaki komut ile hazırlanmalıdır: 


SYMBOL AFTER Xx 
x tekrar tanımlamayı istediğiniz karakter sayısına eşit veya küçük olabilir. 


Tuş takımından direkt olarak yazılabilen karakteri tanımlayan x'in değerine bak- 
madan şu komut ile, yeniden tanımlanan karakter, ekrana yazılabilir: 


PRINT CHR$/ x ) 


SYMBOL x 'den sonra, yukarıdan başlayan 8 ayrı paralel karakter satırını tanım- 
layan 8 parametre vardır. Her parametre 0 ile 255 arasındadır. 8 parametrerin her 
birinin binary gösterilişi, bitirilmiş karakterin sırasındaki numuneyi hesaplar. 
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Örneğin: 8 parametreden ilki 1 ise karakterin en üst sırası binary olarak gösteril- 
mesi 00000001'dir. I gözüktüğünde karakter bölümü PEN renginde yazılmıştır, 
0 gözüktüğünde karakter bölümü gözükmez çünkü PAPER renginde yazılmıştır. 
Bu sebeple yeni tanımlanan karakterin üst sırasının sağ üst köşesinde bir noktası 
vardır. Bu örneğe devam edersek diğer 7 parametreyi 3,17,15,31,63,0,0 diye belir- 
tebiliriz. Bu 8 parametrenin binary gösterilmesi şöyledir: 


parametre (row) 1:00000001 binary: (ondalık 1) 
parametre (row) 2:00009011 binary: (ondalık 3) 
parametre (row) 3:00000111 binary: (ondalık 7) 
parametre (row) 4:00001111 binary: (ondalık 15) 
parametre (row) 5:00011111 binary: (ondalık 31) 
parametre (row) 6:00111111 binary: (ondalık 63) 
parametre (row) 7:00000000 binary: (ondalık 0) 
parametre (row) 8:00000000 binary: (ondalık 0) 


Yukardaki binary gösterilişlerine bakarak yeni karakterin şeklinin nasıl bir şey ola- 
cağı hesaplanabilir. Bu parametreleri 255 karakter numarasına ayarlayalım: 


SYMBOL 255,1,3,7, 15,31,63,0,0 

Son iki parametrede görülen 9 değeri sizin sadece aşağıdakini yazmanız demektir. 
SYMBOL 255, 1, 3,7, 15,31; 63 

Ondalık formda yaratmış olduğunuz sembollerin çevrilen kopyalarını saklamak 
için parametreleri binary olarak girebilirsiniz (& Xx binary örneğini kullanmayı unut- 


mayın). Örnek olarak: 


SYMBOL 255, & x 00090001, & x 00090011, &x00000111, & x90001111, 
& x00011111, & x00111111 


Şimdi karakteri görelim: 

PRINT CHR$ (255) 

Parametreleri tuş takımından yazılabilen karaktere ayarlamak yeni bir karakterin 
oluşmasına neden olur. Bu uygun bir tuşa basmakla olur ve daha önce hangi ka- 


rakter yazarsa yazsın değişmez. Bu konuda daha fazla bilgi için ““Boş vaktinizde” 
adlı konunun 2. bölümüne bakınız. 


Bağlantılı komut: SYMBOL AFTER 
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SYMBOL AFTER 
SYMBOL AFTER <tam sayı ifadesi > 


19 CLS 

20 SYMBOL AFTER 115 

30 PRINT “40. satır s'yi tekrar edecek”; 

40 SYMBOL 115, 9, 56, 64, 48,8,8, 112 

59 PRINT “s'ye” 

60 PRINT “Bu s tarifini SYMBOL AFTER 249” 
70 PRINT “yazarak iptal ed” 

run 


KOMUT: Kullanıcı tarafından tanımlanmış müsaade edilebilen karakter sayısını 
belirler(0 ile 256 arası).Önceden belirlenmiş ayarlama 24”dır ve 16 adet kullanıcı 
tarafından tanımlanan karakter (240-255 arası) verir. Eğer (otam sayı ifadesi 
32 ise 32'den 255'e kadar bütün karakterler tekrar tanımlanabilir. SYMBOL AF- 
TER 256 hiç bir karakterin yeniden tanımlanmasına izin vermez. SYMBOL AF- 
TER komutu kullanıldığında kullanıcı tarafından tanımlanan bütün karakterler 
ilk konuma gelir. 


SYMBOL AFTER, MEMORY komutunu kullanarak, HIMEM değeri değiştiril- 
dikten sonra çağırılırsa veya OPENİN, OPENOUT ile bir dosya ““buffer”'i açıl- 
dıktan sonra çalışmaz. bu gibi durumlarda “*Improper argument” (5 nolu hata) 
hatası verir (SYMBOL AFTER 256 hariç) 


Daha fazla bilgi için “Boş vaktinizde”” adlı konunun 2. bölümüne bakınız. 


Bağlantılı komutlar: HIMEM, MEMORY, SYMBOL 


TAB 
(PRINT TAB'a bakınız) 


TAG 


TAG | # <kanal ifadesi > | 

19 INPUT “adınızı girin”; a$:CLS 

20 PRINT “etrafta dolaşıyormuşsun”; a$ 

30 TAG 

40 x —LEN (a$)?17:y—50-4RND » 399:MOVE -x,y 
50 FOR f—-x TO 644 STEP RND* 743 

60 MOVE f,y:PRINT “ *a$;:FRAME:NEXT 

70 FOR b—644TO-x STEP -RND?7 43 
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89 MOVE b,y:PRINT a$;“ ":FRAME:NEXT 
99 GOTO 4 
run 


KOMUT: kanalifadesi 'ne gönderilen metin, grafik kursörün pozisyonuna ya- 
zılır. Bu, metin ve sembollerin grafik ile karışmasına imkan verir. (o Kanal ifade- 
si belirtilmemişse (#0 önceden belirlenmişti. 


Karakter hücresinin sol üstü grafik kürsörüne bağlanmıştır ve PRINT bildirimi nok- 
talı virgül ile bitmemişse yazmayan kontrol tuşları (yeni satır görmek ve ““carrige 
return”) görüntülenir. 


Daha önce belirlenmiş kanalda (#0), BASIC direkt mod'a geri dönerken TAG 
kapatılır (switch off). 


Bağlantılı Komut: TAGOFF 


TAGOFF 
TAGOFF (# <kanal ifadesi >)| 


19 MODE 2:2:TAG:REM Grafikte metin 

20 sene — 1985:FOR x —1 TO 644 STEP 70 
30 MOVE Xx ,400:'DRAWR 9, -354 

40 sene — sene * 1:PRINT sene;:NEXT 

50 TAGOFF:REM Grafik yokken metin 

60 LOCATE 34,25:PRINT “Senelik şekiller” 
70 GOTO 79 

run 


KOMUT: TAG?ı iptal eder ve metni TAG kullanılmadan önceki metin kürsörü 
pozisyonuna gönderir. 


Bağlantılı komut: TAG 


TAN 


TAN ( <sayısal ifade >) 

PRINT TAN (45) 

1.61977519 

FONKSİYON: sayısal ifade nin tanjantını hesaplar (-200000 ile 4 200000 ara- 
sındaki sayılar). 
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DEG ve RAD kullanılarak hesaplardaki sonuçların derece ve radyan cinsinden so- 
nuçları elde edilir. 


Bağlantılı komutlar: ATN, COS, DEG, RAD, SIN 


TEST 

TEST (<Xx-koordinatı>, <y-koordinatı >) 

19 CLS 

20 PRINT “PEN numarasını kullanıyorsunuz”; 
30 PRINT TEST (10,386) 

40 PRINT “PEN ve MODE değiştirerek deneyin”; 


50 PRINT “.....sonra RUN” 
run 


FONKSİYON: Grafik kürsörü Xx ve y koordinatlarıyla belirlenen mutlak pozis- 
yona götürür ve bu yeni yerdeki ink değerini bildirir. 


Bağlantılı komutlar: MOVE, MOVER, TESTR, XPOS, YPOS 


TESTR 
TESTR ( <Xx-uzaklığı >,< y - uzaklığı >) 


19 MODE g&:FOR x —1TO 15: LOCATE 1,x 
20 PEN x:PRINT STRING$ (19,143);:NEXT 
39 MOVE 200,490:PEN 1 

40 FORn—1 TO 23:LOCATE 12,n 

59 PRINT “pen”; TESTR (9,-16):NEXT 

run 


FONKSİYON: Grafik kürsörü, şimdiki yerinden, belirtilen (Xx ve y uzaklığı 
değerleri kadar götürür ve bu yeni yerde ink değerini bildirir. 


Bağlantılı komutlar: MOVE, MOVER, TEST, XPOS, YPOS 


THEN 


(F komutuna bakınız) 
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TIME 
TIME 


19 CLS:REM saat 

20 INPUT “saat”;saat 

30 INPUT “dakika”;dakika 

40 INPUT “saniye”;saniye 

59 CLS:datum — INT (TIME/300) 


60 WHILE saat < 13 
70 WHILE dakika < 60 


80 WHİLE tick < 60 

90 tick — (INT(TIME/344)-datum) * saniye 
199 LOCATE 1,1 

119 PRINT USING “ “saat, dakika, tick 
120 WEND 

130 tick — 9:saniye — 9:dakika — dakika * 1 
149 GOTO 59 

159 WEND 

164 dakika — 9:saat — saat 4 1 

170 WEND 

189 saat—1 

194 GOTO 6 

run 


FONKSİYON: Bilgisayarın açıldığı andan veya resetlendiği andan itibaren geçen 
zamanı bildirir. 


Gerçek zamandaki her saniye TIME/30'e eşittir. 


Bağlantılı komutlar: AFTER, EVERY, WEND, WHILE 


TO 


(FOR komutuna bakınız.) 


TROFF 
TRON 
TROFF 
TRON 


19 TROF:PRINT:PRINT “TRace-OFF” 
20 FORn—1108 
30 PRINT “program çalışıyor”:NEXT 
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490IFf—1 THEN END 

50 TRON:PRINT:PRINT “TRace-ON” 
60 f—1:GOTO 29 

run 


KOMUT: Her satırı ele almadan önce satır numarasını yazarak programı yürütür- 
ken izleme olanağı verir. Satır numaraları köşeli parantez | | içinde görünür. TRON 


izlemeyi başlatır; TROFF durdurur. 


Bu kolaylık, hata meydana gelmeden önce program satırlarının yürütülmesinde 
çalışmak için faydalıdır. 


Bağlantılı komut: Yok 


UNT 
UNT (<adres ifadesi >) 


PRINT UNT (&FF66) 
-154 


KOMUT: adresifadesi “nin değerinin ikiz eşleniği olan -32768 ile 4 32767 ara- 
sında bir tamsayı verir. 


Bağlantılı komutlar: CINT, FIX, INT, ROUND 


UPPER$ 

UPPER$ (<dizi ifadesi >) 

19 CLS:a$ — “buraya yazılanlar büyük harf olacak” 
20 PRINT UPPERŞ$Ş (a$) 

run 


FONKSİYON: Dizi ifadesinin belirttiği karakter dizisini (A'dan Z'ye) büyük har- 
fe çevirir. 


Bağlantılı komut: LOWER$ 


USING 
(PRINT USING'e bakınız) 
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VAL 
VAL (<dizi ifadesi >) 


14 CLS:PRINT “Çarpım tablosu yapalım” 

20 PRINT.PRINT “1'den 9'a kadar bir tuşa basınız” 
30 a$ —INKEYŞ:IF a$—“” THEN 30 

40 n—VAL (a$)IF n<1ORn>9 THEN 30 

50 FOR x -1TO 12 

60 PRINT n;“X”:x:“—"nx& x 

70 NEXT:GOTO 20 

run 


FONKSİYON: dizi ifadesi nde belirtilen ilk karakteri, negatif işareti ve onda- 
lık noktası dahil olarak getirir. 


Eğer ilk karakter sayı değilse 9 getirilir. Eğer ilk karakter eski işaretli veya ondalık 
noktadan sonra gelen sayısal olmayan bir karakter ise 9“Type mismatch” hata mesajı 
(13) verilir. 


Bağlantılı komut: STR$ 


VPOS 


VPOS ( # <kanal ifadesi >) 


19 MODE 1: BORDER &:LOCATE 8,2 

20 PRINT “kürsör yukarı/aşağı tuşlarını kullanın” 
30 WINDOW 39, 39, 1, 25;CURSOR 1,1 

40 LOCATE 1,13 

50 IF INKEY (6)< > -1 THEN PRINT CHR$(11); 
60 IF INKEY (2) < >-1 THEN PRINT CHR$(10); 
70 LOCATE #1,3,24 

80 PRINT # 1, “metin kürsörü”; 

90 PRINT # 1, “dikey pozisyon —”; 

100 PRINT 1, VPOS ( # 9:GOTO 54 

run 


FONKSİYON: Metin penceresine göre metin kürsörünün dikey pozisyonunu ve- 
rir. Kanal ifadesi mutlaka belirtilmeli ve daha önceden belirlenen # 9 olmalıdır. 


Bağlantılı komutlar: POS, WINDOW 


WATT 


WAIT <kapı numarası >, <kalıp> |, <çevirme >| 
WAIT &FF34, 20, 25 


KOMUT: Belirtilen 1/O kapı numarasına 0 ile 255 arasında bir değer velinceye 
kadar bekler. BASIC, 1/0 kapısı okunurken çevirim içine girer. Okunan değer çe- 
virme ile exclusive OR, kalıp ile AND'dir; taki sıfır olmayan sonuç görünene ka- 
dar. 


BASIC, gereken şartlar ortaya çıkana kadar bekler. 
Yeni başlayanların kullanabileceği bir komut değildir. 


Bağlantılı komutlar: INP, OUT 


WEND 


WEND 

WEND 
KOMUT: WHILE çeviriminde yürütülecek programın sonunu belirtir. WEND oto- 
matik olarak WHILE komutunu seçer. 


Bağlantılı komutlar: TIME, WHILE 


WHILE 


WHILE <mantıksal ifade > 


14 CLS: PRINT “On saniyelik zamanlayıcı”;t — TIME 

20 WHILE TIME t 4 3900 

30 SOUND 1, 9, 199, 15 

40 wend: SOUND 129, 40, 30, 15 

run 

KOMUT: Verilen satırlar doğru olduğu sürece bir program kısmının yürümesini 
tekrar ettiririr. WHILE komutu çevrimin başını ve mantıksal ifadedeki şartı ta- 
nımlar. 


Bağlantılı komutlar: TIME, WEND 


WIDTH 


WIDTH <tamsayı ifadesi > 
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WIDTH 49 


KOMUT: Yazıcı ünite bağlandığında, BASIC'e yazılacak her satırın karakter sa- 
yısını bildirir. BASIC buna göre uygun zamanda “extra carriage return” (satırba- 
şı) yapar. 


Bilgisayar, WIDTH komutu belirtilmezse, 132 karaktere ayarlanmıştır. WIDTH 
2595 komutu yazıcının ekstra satırbaşı yapmasını önler. 


Bağlantılı komut: POS 


WINDOW 


WINDOW | # <kanal ifadesi>,|<sol>, <sağ>, <üst>, <alt > 


19 MODE 9:BORDER 9:REM test kartı 

20 INK 9,8:INK 1,25:INK 2,23:INK 3,21 

30 INK 4,17:INK 5,6:INK 6,2:INK 7,26 

40 PAPER :CLS 

50 PAPER 1:WINDOW 2,4,1,18:CLS 

60 PAPER 2:WINDOW 5,7,1,18:CLS 

70 PAPER 3:WINDOW 8,10,1,18:CLS 

80 PAPER 4:WINDOW 11,13,1,18:CLS 

90 PAPER 5:WINDOW 14,16,1,18:CLS 

100 PAPER 6:WINDOW 17,19,1,18:CLS 

119 PAPER 7:WINDOW 2,19,19,25:CLS 

129 GOTO 129 

run 

KOMUT: Metin penceresinin ekrandaki boyutunu tespit eder. Sol, sağ, üst ve alt 
parametre değerleri ekran MODE'unu kullanırken sabit karakter yerleri ile ilgili- 
dir. 


« 


Eğer kanal ifadesi belirtilmemişse BASIC kanalı # O diye belirler. 


Daha fazla bilgi için ““Boş vaktinizde” adlı konunun 2. bölümüne bakınız. 
Bağlantılı komut: WINDOW SWAP 

WINDOW SWAP 

WINDOW SWAP < kanal ifadesi>, < kanal ifadesi > 


19 MODE 1:INK 1,24:INK 2,9:INK 3,6 
20 WINDOW 21,40,13,25:PAPER 3 
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30 WINDOW # 1,1,20,1,12:PAPER 1,2 

40 CLS:PRINT “pencere numarası 9” 

50 CLS 1:PRINT £ 1, “pencere numarası 1” 
60 LOCATE 1,6 

70 PRINT “kırmızı pencere (0)”;SPC(2) 

80 LOCATE # 1,1,6 

9g PRINT # 1, “yeşil pencere (1)” 

19g FORt—1 TO 1909:NEXT 

110 WINDOW SWAP 20,1:GOTO 64 

run 


KOMUT: İlk kanal ifadesi'nde belirtilen metin penceresini ikinci kanal ifadesi? - 
nde belirtilen ile değiş dokuş eder. 

Her iki kanal ifadesi mutlaka belirtilmelidir ve bu durum kanal idarecisinden önce 
olmamalıdır. Komut BASIC tarafından üretilen mesajları tekrar yönlendirmek için 
kullanılmalıdır. Normal olarak mesajlar kanal # Wa gönderilirler. Pencerelerle 
ilgili daha fazla bilgiyi ““Boş vaktinizde” adlı konunun 2. bölümünde bulabilirsi- 
niz. 


Bağlantılı komut: WINDOW 


WRITE 


WRITE | # < kanal ifadesi > ,|(< yazı listesi >| 


19 REM diskin üzerine değişkenleri yaz 

20 INPUT “değişken numarasını verin”;a 

39 INPUT “dizi değişkenini verin;a$ 

4) OPENOUT “veri dosyası” 

50 WRITE # 9, a,a$ 

60 CLOSEOUT:PRINT “Veri diskete kaydedildi” 
run 


KOMUT: Yazı ifadesi'ndeki parçaları değerlerini kanal ifadesi'nde belirtilen ka- 
nala yazar. Parçalar virgüllerle ayrılır; dizi çift tırnak içine konur. 


Bu örnekte değişken değerleri kanal # 9'a yazılır (disk kanalı). 
(Bu değişkenleri disketten çağırmak için aşağıdaki programı kullanmak gerekir.) 


19 REM değişkenleri disketten bulup getirmek 
20 OPENIN “Veri dosyası”:INPUT # 9, a.a$ 

30 CLOSEIN:PRINT “İki değer —” 

40 PRINT:PRINT a,a$ 

run 
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Bağlantılı komutlar: INPUT, LINE INPUT 


XOR 
<arguman > XOR < argüman > 


IF “ahmet” < “mehmet”XOR “köpek” > “kedi” THEN PRINT “doğru” ELSE PRINT “yanlış” yanlış 
IF *mehmet"< “ahmet” XOR “kedi” > “köpek” THEN PRINT “doğru” ELSE PRINT “yanlış” yanlış 
IF “ahmet” < “mehmet” XOR “kedi” > “köpek" THEN PRINT “doğru” ELSE PRINT “yanlış” doğru 


PRINT 1 XOR 1 
9 
PRINT9 XOR9 
0 
PRINT 1 XOR 9 
1 


Çalışması: Tam sayılarda bit türü ““boolean” çalışmasını yapar. Her iki argüman 
da aynı olmadığı taktirde sonuç I'dir (exclusive OR). 


Daha fazla bilgi için “Boş vaktinizde” adlı konunun 2. bölümüne bakınız. 


Bağlantılı komutlar: AND, OR, NOT 


XPOS 


XPOS 

10 MODE 1: DRAW 320, 244 

20 PRINT “Grafik kürsörün x pozisyonu —”; 
30 PRINT XPOS 

run 


FONKSİYON: Grafik kürsörün o andaki yatay (Xx) konumunu bildirir. 


Bağlantılı komutlar: MOVE, MOVER, ORIGIN, YPOS 


YPOS 


YPOS 

19 MODE 1: DRAW 320, 200 

20 PRINT “Grafik kürsörün y pozisyonu — ”; 
30 PRINT YPOS 

run 


Bağlantılı komutlar: MOVE, MOVER, ORIGIN, XPOS 
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ZONE 


ZONE <tam sayı ifadesi > 


19 CLS: FORZ-210 24 
20 ZONE Z 
30 PRINT “X”, “X ZONE —"z:NEXT 


KOMUT: Yazılacak parçaların arasına virgül konularak PRINT de kullanılan baskı 
bölgesinin genişliğini değiştirir. Daha önceden belirlenmiş baskı bölgesi 13 kolon- 
luktur, fakat oOtam sayı ifadesi oile 1*den 255'e kadar değiştirilebilir. 


Bağlantılı komut: PRINT 
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KONU 4 
Disk ve Kaseti Kullanmak 


Bölüm 1: Disk 
Disk ile Çalışma 


Bu bölümde disklerin nasıl kullanılacağı açıklanacak ve CP/M ile kullanım kolay- 
lıkları tanıtılacaktır. 


Konular 


* Esas disk'in (Master Disc) kopyasını çıkartmak. 
* CP/M Plus ile başlarken. 

* Yardım dosyalarını kullanmak. 

* Tek ve Çoklu sürücü çalışması. 

* PIP ile dosya kopyası. 

* BASIC diski ile çalışma. 

* AMSTRAD BASIC uygulamaları. 

* CP/M Plus uygulaması tanzimi. 

* GSX ile başlarken. 

* CP/M2.2 ile çalışma. 


Temel kursun. 7. bölümünde boş sistem diskinin nasıl formatlanacağı tarif edil- 
mişti. 


Temel kursun 10. bölümünde DISCKIT3 programı ile disklerin tam kopyalarının 
nasıl yapılacağı gösterilmişti. 


Bu bölümde üzerlerindeki programlarla disklerin nasıl kullanılacağı anlatılacak- 
tır. 


Esas Diskin Kopyasını Yapmak 


Bilgisayarınızla birlikte olması gereken Esas Sistem/Faydalı disklerinizin kopyası- 
nı yapmak çok önemlidir; böylelikle tahrip olarak size pahalıya mal olmasını ön- 
leyebilirsiniz. Unutmayınız ki size verilen iki diskin toplam 4 yüzü vardır. Her diskin 
herhangi bir amaçla kullanabileceğiniz iki yüzü vardır. 
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1. yüz en önemlisidir ve CP/M Plus'un ana kopyasını ve bazı disklerie ilgili fayda- 
lı programlar ihtiva eder. 

2. Yüzde assembler programcıları için dosyalar vardır. 

3. Yüzde ise Dr. LOGO, Yardımcı dosyalar (Help Files) ve GSX vardır. 

4. Yüzde CP/M2.2 ve Dr. LOGO (AMSTRAD Model CPC 664 ve CPC 464 4 DDII 
için) bulunur. 

Bu programlar ihtiyacınız olabilir diye önceden hazırlanmıştır. Normal olarak kul- 
lanılmazlar. 


Program kütüphanesi olarak ana disk kopyalarına dikkat etmelisiniz. Normal olarak 
size gerekli olan programı boş bir diskete kopye edip oradan kullanmak yerine kü- 
tüphane diskinizden istediğiniz programı kullanın. Bir kere daha belirtmek isteriz 
ki ana disklerinizin bir kopyesini mutlaka yapınız (DISCKIT3 ile). 


CP/M Plus ile başlarken 


CPC 6128 açıldığında AMSTRAD BASIC görüntüsüne alışacaksınız. AMSDOS 
tarafından BINary program işletilmediği zaman veya CP/M Plus yüklenmediği za- 
man BASIC engellenemez, çalışmasına devam eder. CP/M Plus bir kere yüklen- 
diği zaman CPC 6128 bir daha 1. yüze danışmaya gerek görmez. Sadece başlama 
diski sistem diski olmalıdır, diğerleri veri diskleridir ve büyük kayıt kapasiteleri 
vardır. 


Bir programı çalıştırmak için gerekli programı ihtiva eden diski yerleştirip ismini 
yazmak yeterlidir. Program için kullanılacak veriler program ile aynı diskte veya 
ayrı bir diskte olabilir. CP/M Plus, AMSDOS'un yaptığı gibi disklerin değiş to- 
kuş yapılmasına izin verir. Birkaç programın uzunlukları sebebiyle bir diskte ol- 
ması gerekebilir, o zaman 1. yüzdeki PIP adlı programı kullanın (biraz ilerde ve 
5. Derste bahsedilecektir.) 


Hİ PROFİLE 


Sistem diskinizde PROFILE.SUB adlı bir dosya hazırlanmıştır. Bu, CP/M Plus 
başlatıldığında otomatik olarak işleme konan bir dizi komut listesi içerir. Siz Sis- 
tem Diskinin 1. yüzünü yükleyin ve A > çıktığında şunu yazın. 


REN PROFİLE.SUB — PROFILE.ENG 
PROFILE.ENG'den PROFILE.SUB dosyasını yaratır. Bu profil gelecek sefer 
CP/M Plus başlarken etkili olur ve şu komutları içerir: 


SETKEYS KEYS. CCP 
LANGUAGE 3 
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Kürsör tuşlarını, CP/M komutlarının yazılması için, uygun bir konuma ayarlar 
ve ekran çıkışını USA'DAN UK'”ye çevirir; SHIFT 3 ““£” sembolu olarak görün- 
tülenir. 


SETKEYS KEYS.CCP komutuyla düzenlenen tuştakımı ile BASIC satırları gibi 
CP/M komut satırları düzenlenebilir. SETKEYS ile ilgili bütün detaylar 5. dersin 
2. bölümündedir. 


Bir Yardım Eli 


Sistem disk paketinizin 3. yüzü “Help” adlı özel bir program içerir. Bu CP/M 
Plus programları için bir elektronik el kitapçığı olarak tasarlanmıştır. Faaliyete ge- 
çirmek için 3. Yüzü sokunuz A > çıkınca şunu yazınız: 


HELP 


ve “Help” programı sizin bir çok sualinize cevap vererek, bir yol gösterici olacak- 
tır. 


Bir Yahut İki Sürücü? 


CP/M Plus ilk defa yüklendiğinde bağlanan disk sürücü sayısını kontrol eder. Bu 
sayı bağlantı mesajının bir parçası olarak görüntülenir. Bu işlem eğer ikinci disk 
kısmen sokulmuşsa yanıltıcı olabilir. 


Disk mekanizması ile ilgili bütün hata mesajları ekranda daha önceden belirlen- 
miş 25. satırda gözükür. Programlar ekranda sadece ilk 24 satırı kullanırlar. 
sizin bir sürücü sisteminiz bile olsa alt satırda “Drive is A:” veya “Drive is B:” 
mesajını göreceksiniz. Bu CP/M Plus'un size bir mekanizmayla iki taneymiş gibi 
çalışma imkanı tanımasıdır. Sizin değiştirerek kullanacağınız iki tane diskiniz ola- 
bilir, alt satır programın gerektirdiği doğru diski kullanmanızı hatırlatır. Bu tip 
operasyonlar ikinci bir disk sürücüsü almanızı bertaraf eder fakat oldukça sık disk 
değiş tokuşu zaman kaybına ve muhtemel hatalara sebep olur. 


'Diskten diske dosya kopyası 


PIP (Peripheral Interchange Program) adlı program bir dosyayı bir diskten diğe- 
rine kopyasına imkan verir. Önce PIP programını 1. yüzden yükleyin, A > çıkın- 
ca: 


PIP 
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yazın. Çıkan ““**” PIP'in doğru yüklendiğini belirtir. Normalde kaynak diskinden 
yani A sürücüsünden B sürücüsündeki diske dosyaları kopya edersiniz. Biz tek sü- 
rücülü sistemde A ve B sürücüsünü aynı mekanizma olarak gördük. 

Bir dosyayı kopya etmek için, örneğin SUBMIT.COM,* göründükten sonra şunu 
yazın: 


B: — A:'SUBMIT.COM 

Kaynak diskteki bütün dosyaları kopya etmek için şu komutu kullanın: 
B:—*.* 

PIP'ten çıkmak için, * durumundayken RETURN'e basınız. 


PIP çok karışık bir programdır ve çalışmasının detayları 5. derste verilecektir. 
BASIC için sadece disk 


Normal olarak Sistem diskinin CP/M Plus'a başlarken kullanılacak bir ön disk 
olduğunu gördük. BASIC için kullanılacak disk sadece veri diskleridir ve daha büyük 
bir kapasiteye sahiptir. 


Disk, DISCKIT3 programı ile, mutlaka formatlanmalıdır. Bu tür disklerin üzeri- 
ne program kopya etmek için PIP veya LOAD ve SAVE kullanılmalıdır. 


Açınca Çalışan AMSTRAD BASIC Diskleri 


Eğer, CPC 6128 için AMSTRAD BASIC ile yazılmış uygulama programı aldıysa- 
nız, açar açmaz çalışmaya hazır olmalıdır. Bu tür disklere ““Turn key” (açar aç- 
maz çalışan) denir. Ana sistem disk paketlerinizde olduğu gibi orjinali koruyunuz 
ve kopyasıyla çalışınız. 


Açınca Çalışan CP/M Diskleri 


CP/M çalışma sistemi, CP/M”e dayanan kişisel bilgisayarlar için yazılmış çok bü- 
yük bir yazılım kütüphanesini yükleyip çalıştırmanıza izin verir. Şimdilik bu prog- 
ramların temel mantığı kullanılmayacaktır. Bütün yapacağınız şey onları 6128'de 
kullanarak uygun bir diske aktarmaktır. 


Özel bir uygulamayı yapmak için bir diskte toplanan bir dizi programa ““paket” 
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denir. Bu paketler değişik bilgisayarlarda kullanılmak için tasarlanmışlardır ve her 
birinin değişik boyutlarda bir ekranı ve kürsörün dolaşacağı kendine has bir tarzı 
vardır. 


6128, CP/M Plus ile çalışırken, Basic*e dayanan kontrol kodlarından değişik ka- 
rakterde “terminal emulator” ile daha önceden hazırlanmıştır. 


Bazen aldığınız paket programlar AMSTRAD için hazırlanmıştır veya 6128 için 
uygundur. Eğer mümkünse Zenith Z19/Z29 protokol'lu önceden hazırlanmış bil- 
gileri izleyin. Eğer paket programda bu yoksa veya AMSTRAD esaslı fakat şekli 
ayrı ise CP/M program şekli bazı komutlar belirtir ki bu komutlar 6128 ekranın- 
da paketin gerektirdiği bazı etkiler meydana getirir. Normal olarak paket prog- 
ram için önceden hazırlanmış emirlere uyunuz. 


Almış olduğunuz yazılım, sisteme ve diske uygun olmalıdır. Her değişik bilgisayar 
değişik formda disk kullanır. Bazen aynı büyüklükte olmasına rağmen biri diğe- 
riyle uyum sağlıyor demek değildir. Satıcınıza AMSTRAD 3inch tipini sorunuz. 


Açınca çalışan CP/M disk'i yaratmak 


Uygulama programının kendisi kadar, ““Turnkey” diskte SETKEYS.COM ve bel- 
kide SUBMIT.COM (bağlantılı dosyalarla birlikte) olması genellikle faydalıdır. 
PIP,.COM dosyalarının transferi için kullanılabilir. Bu son durumda PIP basit 
bir ““one-line-at-a-time”” (her seferinde bir satır) yazıcıdır. Örneğin 3. Yüzdeki 
LOGO3.SUB dosyası şu komut ile oluşturulabilir. (Sistem diskinin 1. Yüzünde) 
Şunu yazın: 


PIP 
(Sistem diskini çıkartıp, amaç diskini takın) Şunu yazın: 
LOGO3.SUB - CON: 
SETKEYS KEYS.DRL 


(CONTROLJ J LOGO 3 
(CONTROLJ Z 


CP/M Program Şekillendirilmesi 


CPC 6128'in CP/M ile çalışması donatılmış yazılım paketlerine uygun, geniş bir 
kontrol kodlarına dayanır. Bir çok veri prosesinde ve diğer program paketlerinde, 
ekranın herhangi bir yerine mesaj yazabilmeye, ekranın herhangi bir yerinden gi- 
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riş kabul etmeye ve kürsör kontrollerini anlamaya gerek vardır. 


Eğer program paketiniz AMSTRAD için hazırlanmışsa bütün bunlarla ilgilenmek 
zorunda değilsiniz. 


Paket Programda Çıkışın Şekillendirilmesi 


Bir paketin tertip edilmesi normalde özel bir program ile mümkün olur (INSTAL 
adı verilir). Eğer Z19/729 tip terminal veya CPC6128 değilse 6128'in ekranı ile 
ilgili parametreler hakkında birçok sual soracaktır. Bu cevaplar Ders 7 Bölüm 15'de 
bulunabilir. 


Kontrol Kodları Onaltılık Ondalık Operasyon 


(BEL| &07 7 Ses dalgası. 

(BS &08 8 Kürsörü bir geri götürür. 

(LFJ &OA 10 Kürsörü bir aşağı indirir. 

ICRJ &0D 13 Kürsörü penceredeki sol kenara şimdiki sa- 
tırın üzerine götürür. 

(ESCJ A &1B &41 27 65 Kürsörü bir yukarı çıkartır. 

(ESCJ C &I1B &43 27 67 Kürsörü bir pozisyon ilerletir. 

(ESCJ E &1B &45 27 69 Ekranı temizler. 

(ESCJ H &1B &48 27 72 Home kürsör. 

(ESCİJ J &1B &4A 27 74 Kürsörden ekran sonuna kadar temizler. 
(ESCJ K &I1B &4B 27 275 Kürsörden ekranın sağ kenarına kadar te- 
mizler. 

(ESCJ L &I1IB &4C 27 76 Satır sok. 

(ESCJ M &1B &4D 27 77 Satır iptal et. 

(ESCJN &1B &4E 27 78 Kürsör pozisyonundaki karakterleri iptal et. 

(ESCJ Y &1B &59 27 89 Kürsörü verilen pozisyonun üzerine götür. (c) 
<c><I> <c><I>kolon *32, (0) sıra *32. 

(ESCJ d &I1B &64 27 100 Ekranı baştan kürsöre kadar temizle. 

(ESCİJ o &I1B &6F 27 111 Ekranı sol kenardan kürsöre kadar temizle. 

(ESCİ p &1B &70 27 112 Inverse video girişi. 

IESCİ g &1B &71 27 113 Inverse video çıkışı. 


Paket Programa girişin şekillendirilmesi 


Paket program tuş takımı ile yakından ilgilidir. 6128'in tuş takımındaki birçok tuş 
standart değerler taşır, kürsör tuşu hariç. SETKEYS kullanılarak tuş takımından 


188 


üretilen kodlar tekrar tanımlanabilir. Her değişik paketin standart değerler kabul 
etmesi tercih edilir. 


Ne yazıkki farklı yazılım parçaları arasında genel bir anlaşma yoktur (hangi tuş 
darbesinin hangi kontrol fonksiyonunda kullanılacağı hakkında). Örneğin kürsö- 
rü satır başına götürmek: 


CP/IM komutları (CONTROLJ B 
Dr. LOGO (CONTROLJ A 


Tipik bir Wordprocessor için ICONTROLJ O Se basmak gerekir. 
Üç adet tuştakımı kodu standart olarak önceden hazırlanmıştır. Her düzenleme 
sistem disk paketinin 1. Yüzündeki dosyadan doğrulanabilir. Şöyleki: 


SETKEYS KEYS. CCP 


PROFILE.SUB tarafından otomatik olarak gönderilen komutlardan bir tanesi 
CP/M komutları için tuş takımını uygun bir hale sokar. 


Makina Açıldığında Çalışmaya Başlayan CP/M 
Paketi 


Normal olarak bütün gereken şey, A > hazırken paket ana programının adını yaz- 
maktır. Örneğin PAYROLL.COM adlı ücret programını çalıştırmak için şunu ya- 
zın: 


PAYROLL 


İşlemesi için herhangi bir düzenleme gerekiyorsa bazen bir SUBmit dosyası önce- 
den hazırlanabilir. Buna örnek 3. Yüzdeki LOGO3.SUB dosyasıdır. Şu komutla 
yüklenir: 


SUBMIT LOGO3 
Dosyanın içeriği ise aşağıakini yazarak görülebilir: 
TYPE LOGO3.SUB 
ve şunu verir: 
SETKEYS KEYS.DRL....Tuş takımını tekrar düzenlemek. 


LOGOB zn Dr. LOGO programını işletebilmek 
SETKEYS KEYS.CCP.....Tuş takımını eski haline koymak. 
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Makina Açıldığında Çalışmaya Başlayan CP/M 
Paketinin Otomatik Başlatılması 


Başlama sistem diskinden, kısmi bir programın, otomatik olarak işletilmesi, CP/M 
Plus çalışma sistemi için bir düzenleme yapılarak mümkün olur. Bu, disketi PRO- 
FILE.SUB dosyasının sonuna programın adını ilave etmekle gerçekleştirilir. 


GSX ile Başlarken 


GSX, Grafik Sistem Uzantısı (Graphics System eXtension) demektir. Bu CP/M'in 
metinde olduğu gibi çıkış grafiklerinin de programlanmasına izin verir. Bu, çubuk 
ve dairesel grafikler çizmede ayrıca değişik boy ve stillerde başlık yazmada kulla- 
nılır. Bir sonraki sayfada bu kolaylığı gösteren gerçek bir çıkışın reprodüksiyonu 
gösterilmiştir. GSX, ekrana, yazıcıya veya kalemli çiziciye çıkış izni verir. 
GSX'in, CP/M'”in kelime işlem yapabilmesinden daha fazla resim yapabilme ye- 
teneği yoktur; bir uygulama programı gerektirir. Örnek “DR Graph” digital araş- 
tırma programı kullanılarak çizilmiştir. GSX'in yaptığı ise ekran, yazıcı ve çizici 
için standart kolaylıklara izin vermesi, böyleliklede uygulama programlarını en az 
şekilde tekrar tanzim edilerek bir makinadan diğerine aktarılabilmesidir. 

GSX programı ile işleyebilecek uygun bir disk yapmak için 3. Yüzden GSX.SYS, 
ASSIGN.SYS dosyalarını ve gerekli cihaz sürücülerini (uygulama programları ile 
birlikte) boş, formatlanmış diske PIP kullanarak kopye ediniz. ASSIGN.SYS dosyası 
üç çıkış sürücü cihazı tertibi içerir, büyüklüğe göre ters olarak: 

2la:ddfxIr7 ; Epson 7 bit yazıcı cı 

Ila:ddhp 7470; kalemli çizici (pen plotter) 

9 la:ddmode2 ; 2. ekran modu 

92a:ddmodel ; 1. ekran modu 

93a:ddmode0 ; 0. ekran modu 


Sayılar GSX'e hangi tip sürücü olduğunu söyler (Yazıcı/Çizici/Ekran). Hafızanın 
aynı alanına normalde sadece bir sürücü yüklenebilir, böylece GSX yeterli boşluk 
tahsis etmek için önce ne kadar büyük olduğunu bilebilir. 
6128'in değişik ekran modları ve standart yazıcılar için sürücü seçimi daha önce- 
den hazırlanmıştır. DRIVERS.GSX dosyası 6128 ile bulunabilenlerin bir özetini 
içerir. Bu dosyayı 3. Yüzde şunu yazarak okuyabilirsiniz. 


TYPE DRIVERS.GSX 


Böylelikle uygun cihaz sürücüsünü seçebilirsiniz. Birçok uygulama programı GSX 
yükleyicisini bulundurur. Böylece yapılacak şey programın adını A >'ya yazmak- 
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tır. Eğer uygulama programınızda GSX yükleyicisi yoksa GENGRAF.COM dos- 
yasını (3. Yüz), GSX çalışma diskinizin üzerine kopya edin ve şunu yazın: 


GENGRAF YOURFILE 


GENGRAF.COM, YOURFILE.COM GSP'i ilave ederken silinir. 


Test Diagram 
hen's wages in pence 


fill 2 1d0.00 
o 188.08 fill 1 


160.08 fill 8 
fill ? 150.00 - 


100.00 fill 5 


fill 4 iğg.ğa 


fıll 5 50.88 


Yazıcıdan çıkmış bir GSX örneği. 


CP/M 2.2 ile Çalışma 


CP/M Plus'a ters olarak CP/M 2.2 disklerin değiştirilmesinde çok titizdir. Prog- 
ram çalışmaya başladıktan sonra A >'dan geri dönüldüğünde A sürücüsündeki sis- 
tem diskinden çalışma sisteminin bir kısmını tekrar yüklemeniz gerekir. Eğer ikinci 
bir disk sürücünüz yoksa PIP yerine FHHLECOPY kullanmalısınız. 
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Eğer AMSTRAD CPC664 veya CPC464 * DDII kullanıyorsanız, yazılımları bir 
açıdan CP/M Plus ile uygun değildir, CP/M 2.2'yi kullanmanız önerilir. 


Uyarı: Bazı CPC664/CPC464 4 DD44 CP/M 2.2 uygulama yazılımları, bazı 
özel tertipli talimatlar içerir ve CP/M Plus ile çalışmaz. Bu durumlarda sis- 
tem disk paketinizin 4. Yüzündeki CP/M 2.2'yi kullanmanız mecburidir. 


Bölüm 2: Kasetler 


Eğer sisteme bağlanmış kaset ünitesi kullanmak istiyorsanız, bilgisayar ITAPE ko- 
mutuyla kaset operasyonuna ayarlanınca bir kısım BASIC komutları farklı çalı- 
şırlar. Birçok değişik yazılım mesajları ve ““prompt”ları (diskle çalışırken 
görülmeyen) görünür. Eğer kaset üniteniz hızlı ileri ve geri uzaktan kumanda ile 
çalışıyorsa bu operasyonlar sırasında ya uzaktan kumanda fişini çıkartınız ya da 
kaset moturunu çalıştırmak için ITAPE:CAT yazınız. ESC tuşuna basarak bu iş- 
lemi iptal edebilirsiniz. 

Disklere benzemeyen kasetlerdeki dosya isimleri, şekil olarak sıkı kaidelere bağlı 
değildirler. Uzunlukları 16 karaktere kadar olabilir ve içinde boşluk ile noktalama 
işaretleri içerebilirler. Bazı durumlarda hepsi ihmal edilmiş olabilir. 

Aşağıdaki listede BASIC komutlarının çalışırken olan farklılıkları anlatılmıştır. Ko- 
mutların tariflerini “AMSTRAD CPC6128 temel kelimelerin komple listesi”? adlı 
derste bulabilirsiniz. 


CAT 


Aşağıdaki gibi uyarılırsınız: 


Press PLAY then any key: 


Kaset ünitenizdeki PLAY tuşuna basmalısınız, sonra bilgisayarınızdaki herhangi 
bir tuşa basınız. Kasetin içindeki bant dönmeye başlar ve bilgisayar kasette buldu- 
gu her dosyanın ismini sırayla ekranda görüntülemeye başlar. 


Dosyadaki her kısım görüntülenir ki burada tek bir karakterle ne tip bir dosya ol- 
duğu belirtilir. Şöyle ki; 


$ korunmaya alınmamış BASIC dosya 
“o korunmaya alınmış BASIC dosya 
* ASCII dosya 

& Binary dosya 
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Eğer dosyayı başarıyla okumuşsa belleğe yüklendiğini belirten: 
Ok 


sözcüğünü görüntüler. CAT fonksiyonu bilgisayarın belleğinde bulunan progra- 
mı etkilenmez. 
Eğer kasetteki dosyanın belirli bir adı yoksa CAT şu şekilde görüntü verir: 


Unnamed file 


CAT'e ESC tuşuna basarak son verilir. 


Okuma Hataları 


Eğer yukardaki dosyada okuma mesajları görüntülenmemişse veya aşağıdaki me- 
sajı almışsanız 


Read error a....veya... Read error b 


Bu mesaj aşağıdakilerden birini belirtir: 


I. Kaset üniteniz bilgisayarın TAPE soketine doğru olarak bağlanmamıştır. 

2. Kaset ünitenizdeki VOLUME veya LEVEL kontrolleri doğru olarak ayarlan- 
mamıştır. 

3. Bandın kalitesi düşük veya kullanılmaz hale gelmiştir. 

4. Bant, hoparlör, televizyon gibi şeylerin yanına konularak manyetik alan etki- 
sinde kalmıştır. 

5. SizAMSTRAD bilgisayar sisteminde kullanılmak için yapılmamış bir kaset üni- 
tesinde çalışıyorsunuz. 


CHAIN 

CHAIN MERGE 
LOAD 

MERGE 

RUN 


İlk uygun dosyanın yüklenmesini istiyorsanız bir dosya adı belirlemenize gerek 
yoktur. Örnek komutlar: 
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CHAIN “© 

CHAIN *““*,100 

CHAIN MERGE “*” 

CHAIN MERGE “”,100 

CHAIN MERGE “”,100,DELETE 30-70 
LOAD “*” 

LOAD “”,&IF4ğ 

MERGE “©” 

RUN “©” 


(Bu komut, CONTROL tuşuna basarken aynı zamanda ENTER tuşuna basar- 
sanız kendi kendine işler.) 


Şu şekilde uyarılırsınız: 
Press PLAY then any key: 


PLAY tuşuna bastıktan sonra bilgisayardaki tuşlardan birine basarsanız kaset 
dönmeye ve bilgisayar dosyayı yüklemeye başlar. 


Ekranda aşağıdaki yükleme mesajını alırsınız: 


Loading FILENAME block 1 


Dosya tamamen yükleninceye kadar kaç tane blok varsa hepsi görüntülenir. 


Eğer dosya isminin ilk karakteri ! ise yukardaki mesaj saklanır (bastırılır) ve 
dosya yüklemesi için herhangi bir tuşa basmanız gerekmez (kaset ünitesindeki 
PLAY tuşu hariç). Eğer programınız ! işareti kullanıyorsa ve diskte çalıştırıla- 
caksa ! işareti disk operasyonu sırasında gözönüne alınmaz (disk dosya adı oku- 
nurken). Kaset veya disk dosya adında ! işareti herhangi bir karakter pozisyonu 
yerine doldurmaz. 


Komutu durdurmak için ESC tuşunu kullanmak ekranda hata mesajı oluştu- 
rur. Şöyle ki: 


Broken in 


Eğer dosya başarıyla yüklenmemişse bu bölümün “Okuma hataları” adlı kıs- 
mına bakınız. . 


UYARI: CPC464 modeli için ticari yazarlar tarafından kullanılan kasetler 
CPC6128 - kaset ünitesiyle tam olarak çalışmazlar. 
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EOF 
POS (49) 


Kasetteki bu fonksiyonlar disk gibi çalışır. 


INPUT #9 
LINE INPUT #9 
OPENİN ve CLOSEIN 


Eğer uygun bir dosyanın kasetten yüklenmesinin, isim belirtmeden olmasını is- 
tiyorsanız aşağıdaki komutu kullanabilirsiniz: 


OPENİN “*“* 
Ekranda şu yazı görüntülenir: 


Press PLAY then any key: 


Teybin PLAY tuşuna basıp bilgisayardaki tuşlardan birine basınca bant dönmeye 
başlar ve bilgisayar dosyanın ilk 2Kbyte'lik bölümünü belleğin “file buffer” adlı 
verilen bir bölümüne yükler. Giriş, “file buffer” boş oluncaya kadar alınır ve bil- 
gisayar tekrar hazır duruma geçerek; 


Press PLAY then any key 


yazar ve tekrar dosyadan 2Kbyte'lık bir bölüm yüklenir. Ekranda aşağıdaki yük- 
leme mesajı görüntülenir: 


Loading FILENAME block 1 
ve diğer blok numaraları da yüklendikçe görüntülenir. Eğer OPENIN komutun- 
daki dosya isminin ilk karakteri ! işareti ise yukardaki mesajlar bastırılır ve dosya- 
yı yüklemek için herhangi bir tuşa basmanız gerekmez (kaset ünitesinin PLAY tuşu 


hariç). Eğer programınız ! işareti kullanıyorsa ve diskten işletilecekse ! işareti disk 
operasyonunda ihmal edilir. 


Dosya girişini durdurmak için ESC tuşuna basmak ekranda hata mesajı verir. Şöy- 
leki: 


Broken in 


Eğer dosya başarıyla yüklenmemişse “Okuma hataları” adlı bölüme bakın. 
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LIST #9 

OPENOUT ve CLOSEOUT 
PRINT #9 

WRITE # 9 


Eğer isterseniz, dosya adını belirtmeden, dosyayı saklayabilirsiniz. Örnek komut: 


OPENOUT “©” 


Kasette saklanacak dosyanın ilk 2Kbyte'lik kısmı ““file buffer?” adı verilen hafıza- 
nın bir bölümüne yazılır. ““File buffer?” dolduğu zaman aşağıdaki şekilde uyarılır- 
sınız. 


Press REC and PLAY then any key: 


Kaset ünitenizin RECORD ve PLAY tuşlarına ve bunu takiben bilgisayarın her- 
hangibir tuşuna basın. Kaset ünitenizdeki bant dönmeye başlar ve bilgisayarınız 
“file buffer”'daki içeriği saklar. Daha sonra bilgisayar “file buffer”'a bir sonraki 
2Kbyte'lık kısmını (dosyanın) doldurur ve tekrar hazır ibaresini verir: 


Press REC and PLAY then any key: 


ve 2Kbyte daha kasete saklar. 
Eğer ““file buffer”? kısmen doluysa ve CLOSEOUT komutu ile karşılaştırılırsa bil- 
gisayar “file buffer'daki kalan içeriği kasete saklarken şu mesajı verir: 


Press REC and PLAY then any key: 


Ekranda saklandı (saving) mesajı görüntülenir: 


Saving FILENAME block < x > 


Eğer OPENOUT komutundaki dosya adının ilk karakteri ! işareti ise yukardaki 
mesajlar bastırılır ve dosyayı saklamak için herhangi bir tuşa basmanız gerekmez 
(RECORD ve PLAY tuşları hariç). Eğer programlarınız ! işareti kullanılırsa ve 
diskten işletilecekse ! işareti disk operasyonu sırasında ihmal edilir (disk dosya adı 
okunurken). 


ESC tuşu ile dosya çıkışları durdurulmak istenirse ekranda aşağıdaki hata mesajı 
görünür: 


Broken in 
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Başarılı Saklama 


Dosyanın başarılı saklandığından emin olmak için: 


I. Kaset ünitenizin bilgisayardaki TAPE soketine doğru olarak bağlandığını kontrol 
ediniz. 

2. Kaset ünitenizin RECORD veya LEVEL kontrollerinin doğru olarak ayarlan- 
dığından emin olunuz. 

3. Bozuk kaset veya C120'lik kaset kullanmadığınızı kontrol ediniz. 

4. Kasetlerinizin hoparlör, televizyon gibi manyetik alan üreten cihazların yanına 
konulmadığını kontrol ediniz. 

5. Sakladıktan sonra programı bellekten silmeden önce bandın kataloğunu (CAT) 
isteyip, programın başarılı bir şekilde saklandığını kontrol ediniz. 

6. Kaset ünitenizin periodik bakımlarını yaptırıp teyp başlarını (kristal) munta- 
zam temizlediğinizden emin olunuz. 


SAVE 


Eğer programınızı isim koymadan isimsiz dosya olarak saklamak isterseniz aşağı- 
daki komutu kullanabilirsiniz: 


SAVE ““ 
Ekranda aşağıdaki yazıyı göreceksiniz: 
Press REC and PLAY then any key: 


gerekli tuşlara basıp bant dönmeye başlayınca bilgisayar programı saklar ve ek- 
randa saklandı mesajını görürsünüz: 


Saving FILENAME block 1 

her blok saklandıkça blok numarası değişir. 

Eğer dosya adının ilk karakteri ! işareti ise yukardaki mesajlar bastırılır ve sakla- 
nacak dosya için herhangi bir tuşa basmanız gerekmez. (RECORD ve PLAY tuş- 
ları hariç). Eğer programınız ! işareti kullanıyorsa ve diskte işletilecekse disk 
operasyonu süresince ! işareti dikkate alınmaz. 

ESC tuşu ile komutu etkisiz hale getirmek, ekranda hata mesajı meydana getirir: 


Broken in 


“Başarılı saklama” adlı bölümü okuyunuz. 
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SPEED WRITE 


Bu komut sadece kasette çalışır ve bilgisayar disk operasyonuna ayarlandığında 
çıkartılır. 


Hata Mesajları 


7,21,24,25,27,32 nolu hata mesajları eğer uygun ise kaset operasyonu sırasında üre- 
tilir. (“Bilginiz için”? adlı dersin 6. bölümüne bakınız) 


AMSDOS harici komutlar 


Kaset'e veya disk'e giriş ve çıkış idaresi şu komutlar tarafından yerine getirilirler: 
ITAPE (ITAPE.IN ve ITAPE.OUT diye ikiye ayrılmıştır) 
IDISC (IDISC.IN ve IDISC.OUT diye ikiye ayrılmıştır) 


Bütün harici komutlar: 
AN 


Kaset oparesyonu seçilmiş olsada diske uygulanır. 


198 


KONU 5 
AMSDOS ve CP/M 


Bölüm 1: AMSDOS 


İlgili konular: 


* AMSDOS'a başlangıç 

* Disk idaresi 

* Disk değiştirmek 

* Dosya adları ve tipleri 

* AMSDOS başlıkları 

* 2 Sürücüde dosya adları 

* Rastgele kartlar 

* AMSDOS komutlarını kullanan örnek program 
* AMSDOS komutlarının özeti 

* Dosyaların kopyası ve işletilmesi 

* Hata mesajlarının referans rehberi 


Başlangıç 


AMSDOŞS, bilgisayarınız ile birlikte verilen AMSTRAD BASIC'ın başına | sem- 
bolü gelen harici komutlarla genişletilmiştir. 


AMSDOŞS, herhangi bir dosya kullanımda değilken, kullanıcıya disklerin serbest- 
çe değiştirilebilmesi için izin verir. Eğer açık dosya yazılıyorsa hata mesajı görün- 
tülenir ve verilen data'larda kaybolabilir. 


Disk İdaresi 


Her diskin bölümü vardır, idare ve veri (data) alanı. İdare, dosya isim listesi ve 
her bulunan dosyanın nerede olduğunu gösteren harita (map) içerir. AMSDOS veya 
CP/M bir dosyanın boyutunu rehber kaydını kontrol ederek hesaplar. Diskteki 
artan yerin miktarını rehberdeki bütün dosyaların birbirine ekleyip kullanılmayan 
miktarı görerek hesaplar. 

Bir dosya okunduğunda disk yeri verilmek için rehber girişi kontrol edilir. Yeni 
bir dosya yaratıldığında boş alan buna tahsis edilir ve bir dosya silindiğinde alan 
terkedilir. Büyük dosyalarda her 16K da bir giriş yeri vardır, normal olarak bu 
gerçek, kullanıcıdan saklanmıştır. 
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Disk değiştirmek 


AMSDOS (ve CP/M Plus) da sürücü okumazken, giriş ve çıkış dosyaları açık de- 
ğilken disk değiştirilebilir. CP/M 2.2'nin tersine diske “log in”” yapmaya gerek 
yoktur. 

Disk, yazılırken değiştirilirse diskin üzerindeki veriler bozulabilir. Eğer disk, üze- 
rindeki dosyalar açıkken değiştirilirse, AMSDOS bunu çok geçmeden sezer sürü- 
cüdeki bütün açık dosyalar terkedilir ve bir hata mesajı verilir. Henüz yazdırılan 
bir veri kaybolur ve en son rehber girişi diske yazılmaz. Bununla beraber AMS- 
DOS, bu değişikliği sadece rehberi okuduğu zaman sezer ki dosyadaki her 16K için 
bu işi yapar (ve dosya açık veya kapalı olduğu zaman). Böylece muhtemelen 16K'lık 
veri, diskteki dosyalar açıkken disk değiştirildiğinde, bozulabilir. 


AMSDOS dosya isimleri ve dosya tipleri 


Disk dosyalarını isimlerken hangi tip olduklarını belirten isim kullanmak standart 
bir uygulamadır. Bu isimlendirme, bilgisayarı, dosyaların herhangi bir şekilde kul- 
lanımı yolunda zorlamaz, bununla beraber bazı programlar ismi doğru tip olan 
dosyaları kabul eder. AMSDOS herhangi bir isim tipini kabul eder fakat belirlen- 
mediği zaman bir tercih hakkı içinde arar (AMSDOS başlıkları bölümüne bakın). 


Dosya Adlarının Yapılması 


Dosya adları, nokta ile ayrılan iki kısından meydana gelmiştir. İlk kısım en faz- 
la 8 karakter uzunluğunda ve ikinci kısım 3 karakter uzunluğunda olabilir. Örnek 
olarak: “ROINTIME.DEM”, “DISCKIT3.COM”, “DISC.BAS” geçerli dosya 
isimleridir. 

Dosya adlarının ikinci kısmı dosya tipi diye adlandırılır. Dosya adları ve dosya 
tipleri harflerden ve numaralardan oluşabilir fakat arada boşluk veya noktalama 
işaretleri olamaz. Bazı konvensiyonel dosya tipleri şunlardır: 


* (boşluk) (o Belirtilmemiş tip. Belki bir OPENOUT “dosya adı” tarafından ya- 
ratılan veri veya SAVE “dosya adı”, A kullanan AMSDOS tarafın- 
dan saklanan BASIC programı. 

se BAS SAVE “dosya adı”, SAVE “dosya adı”, P veya SAVE “dosya adı”, 
A kullanan AMSDOS tarafından saklanan BASIC programı. 

se BIN SAVE “dosya adı” ,B, (binary parametre) kullanan AMSDOS tara- 
fından saklanan bellek alanı veya program tipi 

se BAK Dosyanın eski halidir ki AMSDOS veya program yeni halini eski adıyla 
saklamıştır.Bu kullanıcıya eski hali geri izleme olanağı (BACK-up) 
sağlar. 
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e COM Komut dosyası. CP/M programları bu tiptir. 
» SUB CP/M SUBMIT programı için talimat dosyalarıdır. 


AMSDOS Başlıkları 


AMSDOS dosyaları uygun bir tip tanıtıcısı ile birlikte otomatik olarak saklar (SA- 
VE), böylelikle daha önceden belirtilmişin üzerine yazmak istenmediği sürece ta- 
nımlamak gerekmez. BASIC program dosyaları, korunmuş BASIC program 
dosyaları ve Binary dosyalar diske başlık kaydıyla saklanırlar. AMSDOS komu- 
tu: 

LOAD “dosya adı” 


bunları tanır ve uygun hareket için alır. Eğer AMSDOS komutu LOAD başlığı 
bulunamazsa, dosyayı ASCII programı olarak kabul eder. 


Bununla beraber AMSDOS'a dosya yüklendiğinde başlığın içeriğinde dosya tipi 
belirtilmemişse önce dosya tipini araştırır: 


* (boşluk) 
Eğer mevcut değilse dosya tipini araştırır: 


» BAS 


Sonra sonuç olarak bir tip: 


* BIN 


Bu kullanıcıya dosya isminin kısaltılması iznini verir yani dosya tipini belirtmeye 
gerek yoktur. 

Bir disk veri dosyası OPENOUT komutuyla başlatır ve sonra yazılır bunun başlığı 
yoktur ve içeriği ASCII dir. Örneğin BASIC WRITE, PRINT veya LIST'den ba- 
sit yazı. OPENİN disk komutu eğer dosya tipi belirlenmemişse aynı LOAD'daki 
sırayla dosyayı arar. 


İki Sürücüde Dosya Adları 


İki sürücü sisteminde, yani bilgisayara ilave bir sürücü bağlanmışsa dosya her iki 
sürücüde de olabilir. Bilgisayar her iki sürücüde de dosyayı otomatik olarak ara- 
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maz, bu nedenle kullanıcı hangi sürücünün kullanıldığını belirtmek zorundadır. 
I DRIVE, IB, IA komutlarıyla sürücülerden birini seçebilirsiniz ve normal bir dosya 
adı kullanılabilir veya daha önceden tayin edilen sürücünün hakkını alarak sürü- 
cüyü A: veya B: şeklindeki dosya isminin ön işareti olarak tanımlayabilirsiniz. ör- 
neğin: 


1B 
SAVE “PROG.BAS” 
LA 


ve 
LA 
SAVE “B:PROG.BAS” 


Her ikisi de programı ikinci sürücü, B'de saklar. 

Benzer şekilde daha önceden belirlenmiş USER numarası tayinini (USER numa- 
rası rehberin içinden ayırım yapmayı mümkün kılar) önemsiz hale getirerek USER 
numarasını (0 ile 15 arası) dosya adının ön işareti gibi tanımlayabilirsiniz. Örneğin: 


LOAD “15:PROG.BAS” 


ve 
SAVE “15:PROG.BAS” 


Daha önce belirlenmiş USER numarası ne olursa olsun, diskin USER numarası 
15 olan bölümüne programı yükler ve saklar. ((USER komutuna bakın) 

En sonunda daha önceden tespit edilmiş her iki USER ve sürücü ayarlamalarının 
geçersiz kılarak dosya isminin ön işareti şeklinde beraberce belirleyebilir. Örne- 
ğin: 


RUN “15B:PROG.BAS” 


Rastgele Kartlar 


Çoğunlukla bazı disk operasyonlarının (kopya, silme, vs.) birden fazla disk dos- 
yasında gerçekleştirilmesi gerekebilir. Bir dosya ismi kısmi bir operasyon için ta- 
nımlandığında AMSDOŞS, disk rehberini tam uyacak bir isim için inceden inceye 
araştırır. Bununla beraber operasyonu dosya gurubunda gerçekleştirmek mümkün- 
dür. Burada dosya ismindeki karakterlerden bazısı ““önemsiz” olabilir. Bu 
“önemsiz” pozisyon ? işareti kullanılarak gösterilir. Eğer dosya isminin herhangi 
bir kısmındaki bütün blok (veya bütün bloğun kalanı) “önemsiz” ise ? bloğu * 
sembolüne kısaltılır. Örneğin: FRED.*, FRED.?779'in kısaltılmışıdır ve F*.BAS, 
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Sonuç olarak *.* bütün dosyalar demektir. 


Örnekler: 
*.BAS FRED?.BAS F*.BA? 
BERT.BAS 
FREDI.BAS FREDI.BAS FREDI.BAS 


FRED2.BAS FRED2.BAS | FRED2.BAS 

FRED3.BAK 
FRED3.BAS FRED3.BAS | FRED3.BAS 
FINISH.BAS FINISH.BAS 


AMSDOS Komutlarının Programda Kullanılma 
Ozellikleri: 


AMSDOS komutlarını daha iyi anlamak için bu dersin ilgili bölümlerindeki ör- 
neklerle çalışınız. Bu programları Orijinal Ana CP/M sistem diskiniz takılı iken 
YAZMAYIN veya İŞLETMEYİN. 


Değişken Saklanması ve Ekran Dökümünün Gerçekleştirilmesi: 


Aşağıdaki örnek program diske yazar, bu sebeple formatlanmış boş bir disk veya 
programı işletebilecek bir çalışma diski disket ünitenizde hazır olmalı. Program 
bir Union Jack flag çizer ve bütün ekranı diske aktarır. 


19 dumpfile$ — “flag dökümü.srn” 

20 MODE 1:BORDER 4 

30DIM colour (2) 

40 FOR i-9TO2 

50 READ colour (i):REM renkleri veri cümlesinden alacak 

60 INK i, colour (i) 

70 NEXT 

80 ON ERROR GOTO 434 

90 OPENİN “param.dat” 

100 CLOSEIN:ON ERROR GOTO 9 

119 IF errnum -32 AND DERR — 146 THEN CLS: GOTO 164 dosya mevcut değil 
120 CURSOR 1: PRINT “Eski dosyanın üstüne yazmak istiyormusunuz? YIN”; 
134 a$ —INKEYŞ$:ON INSTR(“YN”, UPPER$(a$)) GOTO 130, 150, 149:GOTO 130 
149 PRINT a$:PRINT “Program terkedildi”:END 

150 PRINT a$:CURSOR 9 

160 OPENOUT “param.dat” 

170 WRITE # 9, dumpfile$, 1:REM dosya adını ve mod'u sakla 

184 FORİi—-9TO2 

190 WRITE # 9, colour (i):;REM renkleri sakla 

200 NEXT ii 
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214 CLOSEOUT 

220 CLS 

230 gp — 1:GRAPHICS PEN gp:w — 125 

240 x —-65:a-— 240:y — 490:b — -150:GOSUB 400 
250 y —0:b — 150:GOSUB 40 

260 x —575:a-—-240:y — 400:b — -150:GOSUB 400 
270 y—0:b—150:GOSUB 400 

280 gp — 2:.GRAPHICS PEN gp:w — 40 

290 a—240Xx —-40:y — 400:b — -150:GOSUB 400 
300 x —0:y —0:b— 150:GOSUB 400 

319 a—-240x —640:y—0:b— 150:GOSUB 400 
320 x — 600:y — 400:b — -150:GOSUB 400 

330 ORIĞGIN 90,0,256,380,0,400:CLG 1 

340 ORIGIN 9,9,9,640,159,250:CLG 1 

350 ORIGIN 9,9,280,352,0,400:CLG 2 

364 ORIGIN 9,9,9,640,168,230:CLG 2 

370 SAVE dumpfile$,b,&C009,&4000 

380 DATA 2,26,6 

390 END 

400 MOVE x,y:DRAWR a,b:DRAWR w,0:DRAWR -a,-b 
410 MOVE x #a/24* w/2,y *- b/2:FILL gp 

420 RETURN 

430 errnum — ERR:RESUME NEXT 

run 


Dosya tipleri DAT ve .SRN'nin kullanılmasına dikkat edin. Bu dosya tipleri bize 
tabiatlarında bulunan önemden değil, dosyada ne olması açısından daima aklımızda 
olacaktır. PARAM.DAT dosyası ASCII veri dosyasıdır ve başlığı yoktur. FLAG- 
DUMP.SRN başlıklı bir AMSDOS binary dosyasıdır. 


Programın, dosyası yazılmadan önce, hali hazırda mevcut mu diye düşünerek PA- 
RAM.DAT dosyasından okumaya çalışmasına dikkat edin. Eğer dosya yoksa BA- 
SIC tarafından hata rapor edilir; işlem kesintiye uğramadan program kesintiye 
uğramadan, program tarafından hata yakalanır. Eğer dosya mevcutsa hiç bir hata 
mesajı rapor edilmez ve program otomatik olarak ““mevcut olan dosyanın üzerine 
yazmak istiyor musunuz?” diye sorar. 


Kısmi ekran dökümü ki, ekran modu, renkler ve hakiki bilgileri içeren dosya isim- 
leri, parametre kütüğünde saklanır. Bu veri dosyasının program değişkenleri (dump 
file$) ve sabitleri (1) yazmak için ayrıca başka programlarda kullanmak için sakla- 
mak üzere nasıl kullanıldığını gösterir. 
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Ekranı geri yüklemek 


Aşağıdaki örnek, parametre dosyası kullanarak, çalışmasını kontrol eden genel 
amaçlı ekran dökümü görüntüleme programıdır. Dosyanın boyutunun otomatik 
olarak değişmesine müsaade eder. EOF fonksiyonu ile birlikte veri dosyasından 
değişkenlerin nasıl girdiklerine dikkat edin. Önemli olan şey bu program tarafın- 
dan ekran dökümü görüntülenmesi, ekran ile hafızanın bilinen bir pozisyonuna 
saklanmıştır, aksi halde sonuç çarpık olur. Bu, MODE komutunu icra eden sakla- 
ma programı tarafından emniyet altına alınır ve sonra ekranın yuvarlanmasına se- 
bep olmamak için dikkatli olunur. 


19 DIM colour (15): REM 16 renk için hazırlanmak 
20 OPENİN “param.dat” 

30 INPUT # 9, filename$, screenmode 
40 i—9 

50 WHILE NOT EOF 

60 INPUT #9, colour (i) 

70 INKi, colour (i) 

80 i—i-41 

90 WEND 

199 CLOSEIN 

119 MODE screenmode:BORDER 9 
120 LOAD filename$ 


AMSDOS Komutlarının Özeti 
(A 
LA 


KOMUT: Daha önceden tespit edilmiş sürücüyü Sürücü A'ya ayarlar. Eşdeğeri 
IDRIVE ile A parametresidir. 


1B 
1B 


KOMUT: Daha önceden tespit edilmiş sürücüyü Sürücü B'ye ayarlar. Eşdeğeri | D- 
RIVE ile B parametresidir. 


| CPM 


I CPM 
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KOMUT: Sistem diskinden işletim sistemini yükleyerek diğer disk çevresine geçer. 
Bilgisayar ile birlikte verilen işletim sistemleri CP/M Plus ve CP/M 2.2'dir. Bu 
komut, CP/M olan disk sürücüsünde yoksa başarısız olur. 1. yüz, CP/M Plus'ı: 
4. yüz eski CP/M 2.2 işletim sistemini yükler. 


I DIR 


IDIR (|, <dizi ifadesi >| 
I DIR, “*.BAS” 


KOMUT: Disk rehberini ve boş alanı görüntüler (CP /M tipinde). Eğer dizi ifadesi 
konulmamışsa, rastgele kart *.* kabul edilir. 


| DISC 
| DISC 


KOMUT: DISC.IN ve DISC.OUT komutlarına eşdeğerdir. 


I DISC.IN 
| DISC.IN 


KOMUT: Diski dosya giriş vasıtası gibi kullanır. 
I DISC.OUT 

| DISC.OUT | 

KOMUT: Diski dosya çıkış vasıtası gibi kullanır. 


I DRIVE 


I DRİVE, <dizi ifadesi > 
I DRIVE, “A” 


KOMUT: Belirtilen sürücüyü ayarlar. Bu komut, eğer AMSDOŞS, istenilen sürü- 
cüde diski okuyamazsa başarısız olur. 


I ERA 
I ERA, <dizi ifadesi > 


I ERA, “*.BAK” 
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KOMUT: Dosya adına uyan ve “sadece oku” (Read/Only) olmayan bütün dos- 
yaları siler. Rastgele kartlara müsaade edilir. 


I REN 


İ REN, <dizi ifadesi >, <dizi ifadesi > 
I REN, “NEWNAME.BAS”, “OLDNAME.BAS” 


KOMUT: Dosyaya yeni bir isim verir. Seçilen yeni isimli başka bir dosya mevcut 
değildir. Rastgele kartlara müsaade edilmez. USER (1 USER”e bakınız) paramet- 
resi < dizi ifadesi >?'nde herhangi bir önceden belirlenmiş ayarlamanın üzerine yaz- 
mak için belirtilebilir. Örneğin, | REN, “O0:NEW.BAS”, ““15:OLD.BAS” komutu 
USER 15'deki “OLD.BAS” adlı dosyaya USER O'daki “NEW.BAS” yeni adını 
verir ki | USER”ın daha önceki belirlenmiş veya yazılmış ayarlamaları göz önüne 
alınmaz 


| TAPE 


| TAPE 


KOMUT: Iİ TAPE.IN vel TAPE.OUT ile eşdeğerdir. Eğer harici kaset ünitesi bağlı 
ise kullanılır. 


I TAPE.IN 


I TAPE.IN 


KOMUT: Bandı dosya giriş vasıtası gibi kullanır. Eğer harici bir kaset ünitesi bağ- 
lıysa kullanılır. 


I TAPE.OUT 


I TAPE.OUT 


KOMUT: Bandı dosya çıkış vasıtası gibi kullanır. Eğer harici bir kaset ünitesi bağ- 
lıysa kullanılır. 


I USER 


I USER, <tam sayı ifadesi > 
IUSER, 3 


KOMUT: Rehberin 16 bölümünde hangisine disk fonksiyonlarının (CAT, LOAD, 
DIR, vs.) uygulanacağını hesaplar. 
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REN komutuyla bir dosyadaki USER numarası diğerine transfer olabilir. Örne- 
ğin: | REN, “15: ÖRNEK.BAS”, “g:ÖRNEK.BAS”; dosyayı  USER numara- 
sından USER 15'e dosyanın kendi adını değiştirmeden (ÖRNEK. BAS) transfer eder. 


Disk'den Diske Dosya Kopyası 


Başlıklı AMSDOS dosyaları 


CP/M çevresindeki bu tip dosyaları PIP kullanarak (bu dersin 2. bölümüne bakı- 
nız) kopye etmek mümkündür. Herhangi bir dosya (AMSDOS tarafından oluştu- 
rulmuş ve başlık kaydı bulunan) diskten diske tam olarak kopya edilebilir, fakat 
genel olarak dosya içeriği CP/M programları tarafından anlaşılmaz. 


ASCII dosyaları 


AMSDOS tarafından oluşturulmuş başlıksız dosyalar ASCII'dir ve CP/M prog- 
ramları tarafından hem anlaşılabilir hem de kopya edilebilir. Kısmi olarak ASCII 
program dosyaları, ASCII data dosyaları ve ASCII yazı dosyaları AMSDOS ve 
CP/M programları arasında değiştirilebilirler. 


Read/Only (Sadece/ Oku) dosyalar 


CP/M, kullanılarak herhangi bir kütüğü Read/Only'ye ayarlar ve/veya rehberde- 
ki özel bir sistem statüsüne ayarlar. Bu vasıflar sadece CP/M çerçevesinde set ve 
reset olabilirler. Daha fazla bilgi için dersin 2. Bölümüne bakınız (SET). 


Disk ve kaset arasında dosyaların kopyası 


CP/M Plus'da bant dosyalarına giriş ve diske kopya etmek için veya diskten bant 
dosyalarının yapılması ile ilgili bir destekleme yoktur. Eğer dosyaların bu şekilde 
kopya edilmesi isteniyorsa CP/M 2.2 kullanılmalıdır. CP/M 2.2 bu amaçla CLO- 
AD ve CSAVE yüklemelerini içerir ve tabloda gösterildiği gibi kullanılır. 


Dosya Kopya Yöntemi 


Tabloda disk ile bant arasında kopyalanacak her çeşit dosya kopya etme gösteril- 
miştir. İlave disk sürücüsü olmadığı kabul edilmiştir. Korunmuş BASIC program- 
ları ve binary dosyalar (makine kodlu video oyunları) yükleme adresleri bilinmediği 
takdirde teybe veya teypten kopyaları imkansızdır. PIP, CLOAD, ve CSAVE prog- 
ramlarıyla ilgili detayları bu dersin 2. bölümünde bulabilirsiniz. 


Kopya tabloları için bundan sonraki iki sayfaya bakınız. 
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COPYTO: 


AMSTRAD BASIC 


on tape * 


Binary 
on tape * 


ASCII 
on tape * 


AMSTRAD BASIC 
on disc * 


ASCII 
on disc 


Binary 
on disc * 


AMSTRAD BASIC 


on tape * 


ITAPE 
LOAD"FILE" 
change tapes> 
SAVE"FILE" 
IDISC 


ITAPE 
LOAD"FILE" 
«change tapes» 
SAVE"FILE",A 
IDISC 


ITAPE 
LOAD"FILE" 
IDISC 
SAVE"FILE" 


ITAPE 
LOAD"FILE" 
IDISC 
SAVE"FILE",A 


* lı dosyaların başlığı vardır. 


COPY FROM: 


ASCII data Binary 
on tape * on tape * 


HSHIMEM 
ITAPE 
MEMORY .s:-7 
LOAD"FILE" 
change tapes' 
SAVE"FILE" ,E 
s»,dI,pj 
IDISC 
MEMORYH 
note 2» 

Insert CP/M 2.2 disc» 

ICPM 

CLOAD"FILE",TEMP 

change tapes» 

CSAVETEMP,"FILE" 

ERATEMP 

AMSDOS 

note 1» 

Insert CP/M 2.2 disc» 

ICPM 

CLOAD"FILE" 

AMSDOS 
H:HIMEM 
ITAPE 
MEMORY .s:-1 
LOAD"FILE" 
IDISC 
SAVE"FILE" ,B 
se ,dİ yerl 
MEMORYH 
note 2» 


<note | > Geçici dosya “TEMP” için boş disk alanı gerekir. 
<note2><s> Dosyanın başlama adresidir, (1) uzunluğu, (r) seçmeli işletme ad- 


residir. 
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COPYTO: 


AMSTRAD BASIC 
on disc * 


COPY FROM: 


ASCIIdata AMSDOS Binary 
on disc * 


on disc 


Allother 
on disc 


AMSTRAD BASIC 
on tape * 


Binary 
on tape * 


ASCII 
on tape * 


AMSTRAD BASIC 
on disc * 


ASCII 
on disc 


AMSDOS Binary 
on disc * 


Allother 
on disc 


LOAD"FILE" 
ITAPE 
SAVE"FILE" 
IDISC 


LOAD"FILE" 
ITAPE 
SAVE"FILE",A 
IDISC 

-Or- 
dnsert CP/M 2.2 disc» 
ICPM 
CSAVEFILE 
AMSDOS 


LOAD"FILE" 
«change discs» 

SAVE "FILE" 

-or- 

Insert CP/M Plus disc» 
ICPM 

PIP B:-FILE 
AMSDOS 


LOAD"FILE" 
«change discs» 
SAVE"FILE",A 


* lı dosyanın başlığı vardır. 
<note2><s> Dosya başlama adresi, (1) uzunluk, (r) seçmeli işletme adresidir. 
<note3> Hedef dosyası BASIC tarafından direkt olarak kullanılamaz. Bununla 
beraber bu tercih ucuz taşıma veya geri sürme vasıtaları için faydalıdır. Dosya dis- 
ke geri kopya edilmek için CLOAD “FILE” kulanılır (CP/M 2.2 altında) 
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HSHIMEM 
MEMORY .s:-1 
LOAD"FILE" 
ITAPE 
SAVE"FILE",B, 
»,di yep) 
1DISC 
MEMORYH 
note 2» 
Insert CP/M 2.2 disc» dJnsert CPJM 2.2 disc» 
ICPM ICPM 
CSAVEFILE CSAVEFILE 
AMSDOS AMSDOS 
«note 3» 
Insert CP/M Plus dise» 
ICPM 
PIP B:-FILE 
AMSDOS 
Insert CPJM Plus dis 
ICPM 
PIP B:-FILE 
AMSDOS 
dnsert CP/M Plus disc» 
ICPM 
PIP B:-FILE 
AMSDOS 


AMSDOS Hata Mesajları Rehberi 


AMSDOS taşıyamadığı komutlarla karşılaştığı zaman bir hata mesajı görüntüler. 
Eğer donanım ile ilgili bir problem varsa hata mesajı aşağıdaki şekildedir: 


Retry, Ignore Or Cancel? 


R, kullanıcının bazı önleyici çalışma yaptıktan sonra işlemin tekrarlanmasına ne- 
den olur. 


I, beklenmedik ve uygunsuz neticelerden kaynaklanan problem hiç olmamış gibi 
bilgisayarı devam ettirir. 


C, daha ilerde olan hata mesajından dolayı çalışmayı iptal eder. 


Hata Mesajlarının Anlamları 
Unknown command 


.... Doğru ifade edilmemiş komut 
Bad command 


....Komut herhangi bir sebepten yapılamamıştır. Yazılım hatası veya uygun ol- 
mayan donanım şekli. 


< dosya adı > already exists 


.. ..Kullanıcı kullanımda olan bir dosyaya tekrar isim vermeye çalışıyor. 
<dosya adı >not found 


.. ..dosya mevcut değil. 


Drive (sürücü): directory full 


.... Yeni bir giriş için disk rehberinde yer yok. 


Drive <sürücü >: disc full 
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.. ..Diskte yeni veri için yer yok. 
Drive < sürücü >: disc changed, closing <dosya adı > 


... .Üzerindeki dosyalar açık iken disk değiştirilmiş. 
<dosya adı> is read only 


. .Dosya çalışmaz çünkü Salt/Oku (Read/Only). Dosyalar CP/M çevresinde sa- 
dece Read/Only veya Read/ Write (Oku/Yaz) olarak ayarlanabilir. 
Drive < sürücü >: disc is write protected 


.. Yazım koruma deliği açık olan bir diske yazılmaya kalkışılmış. Diski kullan- 
mak için çıkarınız, yazım koruma deliğini kapatın, tekrar sokun ve R yazın. 
Drive < sürücü >: read fail 


. .Diske yazılırken donanım hatası. Tavsiye edilen hareket diski çıkartıp tekrar 


sokun ve R yazın. 
Failed to load CP/M 


..CPM komutu sırasında CP/M yüklenmesinde okuma hatası veya CP/M içe- 
ren geçerli sistem diskini kullanmadınız. Data format diskinden CP/M*'i yük- 
lemeye çalışırsanız okuma hatası (read fail) alırsınız. 
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Bölüm 2: CP/M 
CP/M Plus 


* CP/M'”in tanıtılması 

* CP/M Plus'ın yararlılığı 

* Direkt Konsol mod 

* Geçici hal programları (Transient) 
* Kullanma çevresi 

* CP/M2.2 ile çalışma 


CP/M Plus bir disk çalışma sistemidir. Bu özel program CPC6128'in tam gü- 
cüne ulaşmanızı sağlar. RAM'ın 128K”sının tamamında kullanılır ki 6IK kul- 
lanıcı programlar için geçerlidir. CP/M data dosyalarına rastgele ulaşır ve 
CPC6128 tamamlayıcısı karmaşık VDU benzeticisini de içerir. 


CP/M' çok değişik bilgisayarlar için mevcut olduğundan dolayı seçebileceği- 
niz binlerce uygulama paketleri vardır ve bütün bunlar size sıhhatli bir bilgi 
ve tecrübe kazandıracaktır. 


CP/M'in kendi programlarınızı nasıl yazacağınızı içeren tüm detayları ve CP/M 
tamamlayıcısı AMSTRAD hakkındaki bilgileri SOFT971-CP/M Plus Guide'de 
bulabilirsiniz. 


Tanıtım 


CP/M çalışma sistemi, bilgisayarlarla iletişim kurmanızda ve dosyalar ile çev- 
re elemanlarıyla çalışmanızda yol gösterir. Özel komutlar, (diskteki faydalı prog- 
ramlar) uygulama programlarınızı verilerle çalıştırırken esas amacınıza yardım 
eder. 


BASIC'in direkt modu ve “Ready” hazır işareti olduğu gibi CP/M'in de direkt 
konsol modu ve A> veya B > hazır işareti vardır. Belirli built-in komutları mev- 
cuttur fakat “housekeeping” işlerinin çoğunluğu “geçici programların” yüklen- 
mesi ve işletilmesi için yapılır. ““Geçici”” diye adlandırılmalarının sebebi bunların 
sadece bilgisayarın içinde olmalarındandır ve kullanılırken built-in olmaya karşı 
koymalarındandır. 


Standart CP/M hata mesajlarının yanı sıra ekranın en alt satırında hemen ayırde- 
dilebilen birçok özel donanım hata mesajları vardır. 
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Diskteki CP/M Plus 


CP/M'in en önemli kısmı ““.EMS” dosya tipindeki özel bir dosyada bulunur ve 
Sistem Disk Paketinin 1. yüzündedir. Bilgisayar CP/M'i bu dosyadan yükler ve 
bu yüklemeyi iki aşama işlemi kullanarak yapar. 


Başlangıçta | CPM, AMSDOS komutu 0 kanalının ilk bölümünü yükler. Bu bö- 
lüm sistem diski üzerinde bir program olarak ayarlandıktan sonra .EMS dosyasını 
belleğe yükler. Sistem kanalının geri kalanı kullanılmaz. 


Profile Dosyası ile Başlama 


Yükleme işlemi sırasında CP/M ilk harekete geçirildiğinde eğer diskte PROFI- 
LE.SUB varsa, bu dosyadaki talimatlar teslim edilir. Buda serbestlik, tuş takımı- 
nın tekrar tanziminde, ekran çıkışının donatımında, yazıcının koşullanmasında ve 
hatta uygulama programının otomatik başlamasında kullanılır. 4. Derste profile 
dosyalarının tekrar isimlendirilmesini görmüştük. 


Profile dosyası çalışırken diskte küçük bir geçici dosya write-enabled olsun diye 
açılır. Bu nedenledir ki ana disk tanımlanabilir profile dosyasını kabul etmez. 


Profil dosyalar, kelime işlemciler, yazı düzenleyiciler (ED.COM gibi), hatta BA- 
SIC'le bile kurulabilir. Aşağıdaki BASIC program PROFILE.SUB yapmakta kul- 
lanılır. 

19 OPENOUT “PROFILE.SUB” 

20 PRINT # 9, “SETKEYS KEYS.CCP” 


30 PRINT # 9, “LANGUAGE 3” 
4ğ CLOSEOUT 


Konsol Kontrol Kodları 


CP/M çevresinde özel tuş operasyonlarının çeşitleri kullanılır. Bu tuş vuruşları AMS- 


TRAD BASIC'deki kursör ve ESC tuşlarının işlemlerinin yerini alır. Aşağıdaki kont- 
rol kodları şu komutu işlettikten sonra düzenlenir: 
SETKEYS KEYS.CCP 


Geçiş programı SETKEYS.COM ve komut dosyası KEYS.CCP sistem disk pake- 
tinizin 1. yüzünde bulunurlar. 
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(CONTROLJ A 
ICONTROLJ B 


veya 
CONTROL » 
(CONTROLJ C 
(CONTROLJ E 
(CONTROLJ F 
(ICONTROLJ G 
(CONTROLJ H 
ICONTROLJ | 


(CONTROL J 
(CONTROLJ K 
(CONTROLJ M 
(CONTROLJ P 


(CONTROLJ O 


(CONTROLJ R 
(CONTROLJ S 


(CONTROLJ U 


- 
(CONTROLJ « 


(CONTROLJ JESCJ 
(CONTROLJ JRETURNJ 
n» 

(CLRJ 

(DELJ 

(TABİ 


(CONTROLJ (CLRJ 
(IRETURNJ veya JENTERJ 


(CONTROLJ (ENTERJ 
(ESC) 


ICONTROLJ W (COPY) 


(CONTROLJ X (CONTROL (DELJ| 


ICONTROLJ Z 


Kursörü bir geri götürür. 


Kürsörü satır başına, başın- 
daysa sonuna götürür. 


Terk etme 

Fiziksel carriage return. 
Kürsörü bir ileri götürür. 
Kürsörün altındakini siler. 
Arka tarafı siler. 

Kürsörü bir sonraki tab duru- 
şuna gönderir. i 
Komut satırını gönderir. 
Satırın sonunu siler. 

Komut satırını gönderir. 
Ekranın yazıcıya çıkışının 
kontrolu (on/off) 

Ekran çıkışını tekrar başlatır. 
Komut satırını tekrar yazar. 
CP/M'den gelen ekran çıkışı- 
nı durdurur. Başlatmak için 
CONTROL O 

Satır çıkartır (atar). 

En son yazılan komut satırla- 
rını tekrar çağırır. 

Satırın başından kürsöre ka- 
dar olan bölümünü siler. 
Yazının (metni sonu. 
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Dosya Adları 


Birçok komut, dosya adlarını parametre olarak alır ve belirtildikleri zaman dosya 
adları rastgele kartları (wild-cards) içerir. Bütün dosya adları büyük harf olur Di- 
rekt konsol komutları ve birçok işletme programları için dosya adları gerekmez. 
Dosya adları A: veya B: ön işaretlerine sahiptir ki CP/Mi uygun sürücüyü kul- 
lanması için zorlasın. 


Bu sebepten dolayı tipik bir CP/M komutu şöyledir: 
TYPE KEYS.CCP 


Burada TYPE gereken fonksiyondur, anlamı “ekranda görütüle” ve KEYS.CCP 
görmek istediğimiz dosya adıdır. 


Daha önceden belirlenmiş sürücüyü 
anahtarlamak 


Eğer sizin ilave bir disk sürücünüz bağlıysa, önceden ayarlanmış sürücü seçimini 
A: veya B: yazarak A ve B sürücülerine ayarlayabilirsiniz. > işaretinin önündeki 
harf size halihazırda belirlenmiş sürücüyü gösterir. A: ve B: ön işaretlerini dosya 
adlarına vermek önemini yitirir fakat önceden belirlenmiş sürücüyü yeniden ayar- 
lamaz. 


Direkt Konsol Komutları 


A >veya B > ile yazılabilen bir çok Direkt Konsol Komutları vardır. Her komut 
kısaltılabilir ve her ne kadar aşağıda bahsedilen basit fonksiyonlar yapılmadıysa 
da, aynı isimle çok sunileşmiş geçiş komutları vardır. 


DIR komutu 


DIR, diskin rehberini listeler. Dosya isimleri belirli bir sırasıyla sıralanmazlar fa- 
kat DIR görüntülenmesinde dosya isimlerinin pozisyonları bu dosyanın disk reh- 
berindeki giriş yerini belirler. Rastgele kartlara müsaade edilir. “SYS” vasfıyla 
ayarlanmış dosyalar listelenmez. 
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DIR Önceden belirtilmiş diskteki dosyaları listeler. 
DIR B: B sürücüsündeki dosyaları listeler. 

DIR *.BAS .BAS tipi dosyaları listeler. 

DIR B:*.BAS B sürücüsündeki .BAS tipi dosyaları listeler. 
DIR PIP.COM PIP.COM dosyasını listeler (eğer varsa) 


DIRSYS veya DIRS komutu 


DIRSYS veya DIRS, “SYS” vasfıyla ayarlanmış rehber dizisini listeler. Aksi tak- 
dirde DIR gibi çalışır. SYS vasfı sonra anlatılacaktır. 


ERASE veya ERA komutu 


ERA rehberden dosyaları silmekte kullanılır. Sadece rehber girişi silinir böylece 
veri, yeni başka bir dosya tarafından kullanılıncaya kadar diskin veri bölümünde 
kalır; bununla beraber bilgi tekrar kazanılamaz. Rastgele kart dosya isimlerine 
müsaade edilir ve eğer kullanılırsa ERA tasdik için sorar. ERA silinen dosya isim- 
lerini listelemez. Eğer silinecek herhangi bir dosya Read/Only olarak bulunursa 
komut durur. Read/Only vasfı daha sonra anlatılacaktır. 


ERA PIP.COM  PIP.COM dosyasını siler. 
ERA B:PIP.COM Sürücü B'deki PIP.COM dosyasını siler. 
ERA *.BAS Bütün .BAS dosyalarını siler. 


RENAME veya REN komutu 
REN, halihazırda bulunan dosyanın yeniden adlandırılmasını sağlar. Önce yeni 
dosya adı konur, — işaretinden sonra mevcut bulunan dosya adı yazılır. Eğer yeni 


dosya adı mevcut ise hata mesajı görüntülenir. Rastgele kartlar, yapma komutu 
olarak REN'in sahasının dışında kalır ve geçiş programı RENAME.COM gerekti- 
rir. 


REN NEWNAME.BAS — OLDNAME.BAS, OLDNAME.BAS adını NEWNAME 
olarak değiştirir. 


REN B.NEWNAME.BAS - OLDNAME.BAS Sürücü B'deki OLDNAME.BAS 
adını NEWNAME.BAS olarak değiştirir. 
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TYPE veya TYP komutu 


TYPE belirtilmiş bir dosyanın ekrana yazılacağını sorar. Eğer dosya ASCII yazı 
dosyası değilse önceden tayin edilemeyen ve muhtemelen istenmeyen yan etkiler 
olur. 

TYPE KEYS.CCP 


KEYS.CCP dosyasını görüntüler. 


USER veya USE komutu 


USER, halihazırda kullanılan kullanıcı numarasını değiştirir. CP/M Plus kullanı- 
lan kullanıcı numarasını 0”a ayarlayarak başlar. Normal olarak dosyaları kullanı- 
cı numarasıyla tanımlayarak girilebilir, böylece rehberin haricinde taksimatı önceden 
hazırlar. 


Kullanıcı daki dosya (SYS sıfatıyla) bütün kullanıcı numaralarından girilebilir. 
Bu, her kullanıcı alanında gerçek kopyalarını yapmadan bütün kullanıcı numara- 
larına işlem ve uygulama programları yapmak için çok güçlü bir kolaylıktır. 
USER 3 


komutu kullanıcı numarasını 3'e ayarlar. 


Geçiş Komutları 


Direkt Konsol modda izin verilenden daha karmaşık bir dosya idaresi yapmak için 
önceden hazırlanmış değişik faydalı programları uygulamanız gerekir. Bunlar prog- 
ram adını yazmakla (muhtemelem peşinden dosya adı ve/veya bazı parametreler 
gelir) çağırılırlar. Siz belkide DISCKIT3 kullanacaksınız. 


Komutlar aşağıda belirtilen kategorilerin sayısındadır. Bu programların tüm dö- 
kümentasyonu kapsamlıdır ve daha ileri bilgiler HELP dosyalarında (Sistem disk 
paketinin 3. yüzünde) ve SOFT971-CP/M Guide de vardır. 


DISCKIT3, SETKEYS, SETLST, SETSIO, PALETTE, LANGUAGE, ve AMS- 
DOS komutları, GSX Ekran cihazları sürücüleri ayrıca LOGO3 tertibi AMSTRAD 
tarafından tasarlanmışlardır ve yalnız AMSTRAD sisteminde çalışır. Diğer her- 
hangi bir CP/M sisteminde çalışmazlar. 


Bir satırda çoklu komutlar girilebilir ki komutlar ünlem işaretiyle biribirlerinden 
ayrılırlar. Örneğin: 


LANGUAGE 3!SETKEYS KEYS.WP 
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Çevre İdaresi 


DISCKIT3 komple disk formatlayıcısı, kopyacı ve kontrolcudur. Kopya ederken 
formatlaması, formatlamadan ve daha sonra kopya etmekten daha çabuktur. Ge- 
niş kapsamlı seçenek tablosu hangi tuşlara basılacağını (genellikle fonksiyon tuş- 
ları) belirtir. Vendor format diskleri sistem diskinin, yazılım dağılımı maksadıyla 
hazırlanmış özel bir formdur. Data format diskleri CP/M Plus çevresinde bir ak- 
tivite için daha uygundur. 


Lisan Karakterleri 


CPC6128 uluslararası karakterlerin hepsine sahiptir. LANGUAGE komutu bu ka- 
rakterlerden bazılarını değiştirir böylelikle basit yazılım, değiştirilen ve aksanlı ka- 
rakterleri ekranda görüntüleyebilir. Bu konuda daha fazla bilgiyi “Bilginiz için” 
adlı konunun 16. bölümünde bulabilirsiniz. 


Komut: 
LANGUAGE 3 


6128i İngiliz karakterlerine (# ve £ işaretleri) ayarlar. 


Renkler 


6128'de CP/M Plus ile önceden tespit edilmiş renkler mavi zemin üzerinde parlak 
beyaz karakterlerdir. Bu renkler PALETTE komutuyla değiştirilebilir. Her ink için 
parametre numarası vardır, şöyleki: ink 9 arka zemin ve çerçeve alanı, ink | ise 
yazı içindir. Her renk O'dan 63'e kadar bir sayı ile temsil edilir, yeşil monitörde 
renk yoğunluğu (parlaklık) ölçüsü için kullanılabilir. Ink numarasını 1?den 16'ya 
kadar belirtmek mümkündür, bununla beraber 80 kolonluk modda sadece ilk iki- 
si görünebilir. 


Komut: 
PALETTE 63,1 


Normal ayarlamaları tersine çevirir yani ink 0 ve ink 1 değiştirilerek arka zemini 
parlak beyaz (63) yazıyı mavi (1) yapar. 


Aşağıaki tabloyu kullanarak sizin için gerekli olan renkleri (veya yoğunluğu) seçe- 
bilirsiniz. Ondalık veya hex (16'lik) gösterimlerin birini kullanabilirsiniz. 
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Renk Hex Ondalık Renk Hex Ondalık 


Siyah &00 9 Pastel mavi &2B 43 
Mavi &02 2 Portakal &2C 44 
Parlak mavi &03 3 Pembe &2E 46 
Kırmızı &08 8 Pastel magenta &2F 47 
Magenta &DA 10 Parlak yeşil &30 48 
Leylak &0B ıl Deniz yeşili &32 50 
Parlak kırmızı &0C 12 Parlak açık mavi &33 51 
Mor &0E 14 Limon yeşili &38 56 
Parlak magenta oO&gF 15 Pastel yeşil &3A 58 
Yeşil &20 32 Pastel açık mavi &3B 59 
Açık mavi &22 34 Parlak sarı &3C 60 
Gök mavisi &23 35 Pastel sarı &3E 62 
Sarı &28 40 Parlak beyaz &3F 63 


Beyaz &2A 


Tuş Takımı 


Tuş takımı tarafından üretilen kodlar SETKEYS komutuyla değiştirilebilir. Bu tuş- 
lara uygun kodların tayinine ve genişlemesine imkan verir. Hakiki kodlar bir dos- 
yaya yazılmalıdır. Komut dosyası, yazı editörü, PIP veya BASIC'den yapılabilir. 
Örneğin: 

SETKEYS KEYS.TST. 


KEYS.TIST dosyası şunları içerir: 
E &8C “DR İM” expension token 12 
8 NSC “TH” backspace- (CONTROLJ H, ASCII 08 


önce (CONTROLJ| (ENTER expension token (&SC ile gösterilen) DIR (RETURN) 
dizisi olarak tekrar tarif edilir ve sonra kürsör sola tuşu —(tuş no:8) backspace'e 
döner. 


Standart dosyalar 6128 ile önceden hazırlanmıştır. CP/M düzeltme komutu için 
KEYS.CCP; Dr.LOGO ile kullanmak için KEYS.DRL ve birçok kelime işleticile- 
ri için (word processor) KEYS.WP uygundur. 


Yazıcılar 


Yazıcıların başlangıcındaki durumu aşağıdaki komut ile oluşturabilirsiniz. 


SETLST <dosya adı> 
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<Dosya adı>, yazıcıya gönderilecek dizi veya dizileri içerir. SETKEYS komut 
dosyasında olduğu gibi, kontrol kodları şu şekilde gösterilirler. 


) <karakter > 

veya 

1 '<karakter değeri >” 
veya 

1 '<kontrol kod adı >' 


Kontrol kod adları ESC, FF vs.dir “Bilginiz için” adlı konunun ASCII tablosun- 
da gösterilmiştir. 


Birçok yazıcı için kullanışlı bir başlangıç durum kod değeri 15*dir ve bu da yoğun 
baskıdır (condenset printing). 


Komut: 
PRINT # 8,CHR$(15) 


BASIC de ayarlanır. CP/M için ise komut: 
SETLST CONDENSE 


CONDENSE dosyası tek bir satır halinde aşağıdakilerden birini içerir: 


hepside ondalık 15 değerini gösterir. 


Bazı uygulama programları ekranı 24 x 80 olarak ister. Komut SET24 x 89 ekran 
boyutunu ayarlamak için kullanılır. 


Komut: 
SET24 x 80 


veya 


SET24 x 84 ON 
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24x80 modunu açar, ve 
SET24x80 OFF 


24x80 kodunu kapar. 


6128'in normal ekran boyutu 24 x 8”dir ve alt satır durum mesajları için ayrılmış- 
tr. 24x80 modunu kapatmak sadece durum satırı ihmal edilirse dikkate değer. 
Ders 7 bölüm 15'de durum satırlarının nasıl açılıp, kapatılacağı detaylı olarak an- 
latılmıştır. 


Seri Interface 


CP/M Plus tek kanal seri giriş/çıkış interface için (RS232) yapılmıştır. SETSIO 
komutu (parametresiz) yazılarak önemli istatistikler incelenebilir. 
SETSIO * 


veya 


SETSIO, RX 1200, TX 75, PARITY NONE, STOP 1, BITS 8, HANDSHAKE ON, XOFF 
OFF 


yeni bir konfigürasyon ayarlar. 


Baud hızı ve XON/XOFF durumları DEVICE komutu ile mümkün olan ayarla- 
malardan etkilenir. DEVICE mantıksal ve fiziksel araçlarla ilgilenir. Mantıksal araç- 
lar: iki nokta üstüste ile belirtilirler. Bütün araç sıfatlarını incelemek için şunu yazın: 
ve sıfatlar komutlarla değiştirilebilirler şöyle ki: 


DEVICE SIO (1200) SIO'yu 1200 baud'a ayarlar. 
DEVICE SIO (XONJ SIO'yu XON/XOFF protokoluna açar. 
DEVICE SIO (NOXON)J SIO'yu XON/XOFF protokoluna kapar. 


Mantıksal ve fiziksel araçların arasındaki bağlantılar değiştirilebilir. Normal ola- 
rak CON: CRT'ye (tuştakımı/ekran); AUX: SIO'ya (seçmeli seri interface) ve LST:, 
LPT'ye (Centronics yazıcı interface) ayarlar. Komut: 


DEVICE LST:—SIO 


Eğer uygunsa, Yazıcı çıkışını seri interface'e gönderir. 
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Bu kanal tekrar yönlendirilmesidir ve PIP ile hazırlanan dosya kopyalama ile ka- 
rıştırmamak gerekir. GET < dosya adı > ve PUT <dosya adı > komutları, araç 
kanalından ziyade dosya kullanmalarını bildirerek konsol giriş veya çıkışlarını ve 
yazıcı çıkışını yeniden yönlendirir. 


PIP 


PIP bilgileri bilgisayar ile çevresi arasında transferi sağlar. Komutun genel yapısı: 


PIP <varış yeri > — < kaynak > 


< kaynak > ve < varış yeri > kaynakta müsaade edilen rastgele kartlar ile bir dos- 
ya adı veya bir mantıksal araç olabilir. Aşağıdaki şu mantıksal araçlar kullanılabi- 
lir. 


Kaynak olarak Varış yeri olarak 
CON: konsol girişi CON: konsol çıkışı 
AUX: auxiliary girişi AUX: auxiliary çıkışı 


EOF: dosya sonu işareti LST: yazıcı 
PRN: tab genişlemesi, satır numarası ve sayfa kırıl- 
ması ilave edilmiş yazıcı. 

PIP için örnekler: 

PIP B:—:*.COM 

Sürücü A'daki bütün *.COM dosyalarını sürücü B'ye kopya eder. 


PIP KEYBOARD.CPM — KEYS.CCP 


KEYBOARD.CPM'”'den çağırılan KEYS.CCP'nin kopyasını yapar. 


PIP CON: — KEYS.CCP 


KEYS.CCP dosyalarını ekrana gönderir. (- TYPE KEYS.CCP) 


PIP LST: — KEYS.CCP 


KEYS.CCP dosyalarını yazıcıya gönderir. 


PIP TYPEIN.TXT — CON: 
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TYPEIN. TXT adlı dosyaya tuştakımı girişlerini kabul eder. 


En son operasyon (CONTROLJ| Z kontrol kodu ile biter ve yeni bir satır için her 
IRETURNP'den sonra (CONTROLJ J yazmanız gerekir. (CONTROLJ J satır bes- 
lemenin ASCII kodudur. 


PIP'i parametresiz yazarsanız * işaretini alırsınız ve gerekli komutu!girersiniz.; Bu 
tür operasyonlar kaynak ve varış yeri disklerinde PIP.COM dosyaları olmadığı za- 
man dosyaların kopyasında kullanışlıdır. Sistem diskinin 1. Yüzünden PIP'i yük- 
leyin, sistem diskini çıkartıp kopyalamada kullanacağınız diski sokun. 


PIP'ten çıkmak için * hazırda RETURN'e basın. PIP bir diskden diğerine kopya- 
lamada tek sürücü sisteminde kullanılabilir, hazır durumu otomatik olarak diskin 


değiştirilmesini görüntülenir. Kaynak ve varış yeri sürücü tanımlayıcısı değişik ol- 
malıdır. 


Sistem İdaresi 


DIR, ERASE, RENAME ve TYPE, yapılmış kopyalarından daha fazla işlevleri 
olan geçiş programlarıdır. Digital araştırma tarafından sunulan diğer geçiş prog- 


ramları gibi ikinci parametreler köşeli parantezle belirtilmiştir. Bütün detaylar HELP 
dosyasındadır. Bir kaç örnek verelim: 


DIR (FULLJ Dosyanın ebadını ve sıfatını görüntüler. 
ERASE*.COM |JCONFIRMJ Her dosyayı buldukça doğrulamak için hazır duru- 
ma geçirir. 


RENAME Yazılan yeni ve eski dosya adlarını sorar. 
RENAME *.SAV — *.BAK Bütün .BAK dosyaların adını .SAV olarak ye- 
niler. 


TYPE KEYS.WP (NOPAGEJ Ekran sayfa numaralandırmasını meneder. 


SYS (Sistem) ve RO (Read/Only) dosya sıfatlandırılmasından daha önce bahse- 
dilmişti. Bu ve diğer birçok sıfatlandırılmalar, rastgele kartları kabul eden, SET 
komutunu kullanarak tahsis edilirler. Aşağıdaki komutlar: 


SET *.COM |/ROJ 
SET KEYS.CCP /ROJ 
SET A: (ROJ 


kazara silinmeyi önlemek için dosyaları hazırlar veya Read/Only durumunu sü- 
rer. 
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Aşağıdaki komutlar: 


SET *.COM /RWJ 
SET KEYS.CCP /RWJ 
SET A: (RWJ 


dosyaları resetler veya Read/ Write durumunu sürer. Aşağıdaki komutlar: 


SET *.COM /SYSI 
SET KEYS.CCP (SYSI 


sistem sıfatını dosyalara verir. Bu sıfatdaki dosyalar DIR komutu tarafından gö- 
rülmez (DIRS veya DIRSYS gereklidir). Bununla beraber dosyalar kullanmaya ve 
ilaveye hazır olarak bulunurlar, eğer dosyalar 0 kullanıcı alanı numarasında bulu- 
nuyorsa diğer bütün kullanıcı alan numaraları içni mevcutturlar. 


Aşağıdaki komutlar: 


SET *.COM JDIRJ 
SET KEYS.CCP /DIRJ 


sistem sıfatlarını çıkartır. 


Her diske bir başlık, isim ve hatta parola tayin edilebilir. Parola rehberin içindeki 
dosya adları yerine,rehberin kendini korur. Her dosyaya kendi başına bir parola 
tayin edilebilir. 


SET (NAME - ROLANDJ 
SET (PASSWORD — SALLY)J 
SET (PROTECT — ONJ 


disk üzerinde etkili olur. 


SET *.* (PASSWORD — SALLYI 
SET *.* (PROTECT — READJ 


Diskin üzerindeki dosyalar üzerinde etkili olur (rastgele kartlar, *.* burada bü- 
tün kayıtları belirtmek için kullanılıyor). Tarih ve zaman vurgulaması INITDIR 
komutu tarafından harekete geçirilir (Sistem disk paketinizin 2. Yüzünde). Komutlar: 
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INITDIR 
SET (CREATE - ON| veya SET (CCESS — ONJ ve 


SET (UPDATE — ON| 
DIR (FULLJ 


belirtilen sürücü üzerinde tarihi görüntüler ve başlatır, şöyle yazın: 
DATE SET 


Gerekirse her seferinde CP/M Plus saati ayarlamaya başlar. Saat bir kere ayar- 
landığında 6128 tarafından otomatik olarak işletilir ve 


DATE ve 
DATE CONTINUOUS 


tarafından kontrol edilir. 


UYARI 


Eğer parola, disk isimlendirilmesi veya tarih ve zaman vurgulaması çalıştırıl- 
mışsa disk sonradan AMSDOS veya CP/M 2.2 tarafından yazılmamalı veya 
bu faaliyetlere dayandırılmamalıdır. 


Normal olarak dosyalar daha önceden tespit edilmiş sürücüden girerler, sadece sü- 
rücü belirtilmiş ise bu sürücüden girerler. Komut şöyledir: 


SETDEF *,A: 


Burada * işareti daha önceden belirtilmiş sürücüyü temsil eder. Komut CP/M'i 
(dosyaları aradığı zaman) önce, önceden belirtilen sürücüden sonra sürücü A:dan 
aramasını bildirir. Diğer bir deyişle, daha önceden belirlenmiş sürücü B: ise, dos- 
yalar sürücü A: da dahi olsa otomatik olarak bulunacaktır. 
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Komutlar: 
SETDEF (PAGEJ ve 
SETDEF (NOPAGEJ 


Konsol görüntücüsünün otomatik sayfa numaralayıcısını on ve off durumlarına 
getirir. 


DEVICES, SET ve SETDEF'in bir çok faaliyetinde CP/M Plus başlarken herse- 
ferinde tarih ile birlikte sürücünün ayarlanması gerekir. Bu uygun bir PROFI- 
LE.SUB dosyası için birinci uygulamadır. 


SUBMIT bağımsız komut dosyalarının otomatik olarak işleme konması için ge- 
reklidir. Komut dosyalarının içeriği metindir ve eğer .SUB dosyasındaki satırların 
ilk karakteri < ise programlara giriş ilave etmek mümkündür. 


Sürme boyutu, boşluk miktarı, dosyaları içeren kullanıcı alanları ve varsa disk eti- 
keti ile birlikte diskte kalan rehber girdi sayısı, SHOW komutunun değişik kombi- 
nasyonları ile görüntülenirler. Şöyleki: 

SHOW B: 

SHOW B: (LABEL|J 

SHOW B: (USERSİ 

SHOW B: JDIRJ 

SHOW B: (DRIVEJ 


Hepside sürücü B'deki istatistikleri belirler. 


CP/M Plus'dan Çıkmak 


AMSDOS 


Bu program CP/M tarafından kontrolu terkedip AMSTRAD BASIC'e döner ki 
AMSDOS disk komutlarını içerir. 
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İleri Programlama 


Sistem disk paketinizin 2. Yüzünde ileri ve sistem programcılarının kullanması için 
hazırlanmış programlar içerir. Kullanıcıya SOFT971-A Guide to CP/M veya di- 
ger referans çalışmalarına baş vurması önerilir. 


CP/M 2.2 İle Çalışma 


CP/M 2.2, Sistem diskinin ilk iki izi'nden (track) yüklenir. CP/M Plus'ı yükler- 
ken kullanılandan, bootstrap bölgesi değişiktir ve bunları karıştırmamak için dik- 
katli olmalıyız. Vendor, IBM ve Data format disklerini her iki disk sürücüsünde 
de kullanmak mümkündür ama çalıştırma bağıntıları genellikle ikinci disk sürü- 
cüsünde kullanılmalarını dahdit eder. CP/M programı tarafından özel bir işlem 
yapılmazsa (FILECOPY'nin yaptığı gibi) CP/M 2.2, disk logged-in yapılmamışsa 
üzerine yazmanıza izin vermez. Bundan başka disk formatının tipi (System, Data 
veya IBM) sadece disk logged-in yapılmışsa yeniden hesaplanır. Bilgisayarla bir- 
likte olan ana disk sürücüsü (Sürücü A) CP/M 2.2 Direkt konsol mod'a döndü- 
günde veya (CONTROLJ C;A > veya B > iken yazıldığında yerini alır. İlave sür- 
cü (Sürücü B) için Sürücü A logget-in olduktan sonra Sürücü B'deki disk'e giriş 
yapılınca yerini alır. Eğer disk'e logget-in olmadan yazmaya kalkarsanız aşağıda- 
ki hata mesajını alırsınız: 


Bdos Err on (sürücü):R/O 


Devam için herhangi bir tuşa basın. Eğer değiştirilen disk değişik formatlıysa oku- 
ma ve yazma hatası meydana gelir, devam için C yazın. Eğer Vendor formatlı bir 
yazılım disketiniz varsa, bunu kullanmak için ya FILECOPY veya PIP kullana- 
rak CP/M 2.2 sistem disketine kopya edin yada CP/M'i ilave ederek diski sistem 
diskine çevirin. Bu BOOTGEN ve SYSGEN komutlarıyla beraber arşivlenmiştir. 
Bu kitabın arkasındaki “İlave 1”deki Kullanıcı Lisans Antlaşmasını dikkatli oku- 
yun. 


SYSGEN (parametresiz) özel bir kopya programıdır, kaynak ve varış yeri diskleri- 
ni hazır duruma getirerek CP/M 2.2 sistem kanallarını bir diskten diğerine kopya 
eder. BOOTGEN aynı şekilde, bölge 1, kanal 0 (yükleyici) ve konfigürasyon böl- 
gesini bir diskten diğerine kopya eder. 


DIR komutu parametre almaz (dosya belirleyici hariç). Dosya isimleri herhangi 


bir sıraya göre ayrılmaz fakat DIR'de görülen dosya isim pozisyonları, disk reh- 
berindeki bu dosyaların girişlerini belirtir. 
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STAT, SET ve SHOW'un bazı temel fonksiyonları önceden hazırlanmıştır. Aşa- 
ğıdaki komutlar: 


STAT 
STAT A: 
STAT B: 


diskin vaziyeti ve boş alanını gösterir. Aşağıdakiler 


STAT *.COM 
STAT DISC.BAS 
belirli bir dosya için genişletilmiş rehber bilgisini görüntüler. Aşağıdaki komutlar: 


STAT *.COM $R/O 
STAT DISC.BAS $R/O 


Read/Only'yi ters çevirerek dosyayı Read/ Write haline sokar. Aşağıdaki komut- 
lar: 


STAT *.COM $RIW 
STAT DISC.BAS $RMW 


Dosyayı kazara silinip üzerine yazılmaması için Read/Only haline sokar. Aşağı- 
daki komutlar: 


STAT *.COM $SYS 
STAT SECRET.BAS $SYS 


Dosyayı sistem haline çevirir, şöyleki, rehber listesi ve dosya kopyalama program- 
ları görülmez. Dosya diğer maksatlar için mevcuttur. Aşağıdaki komutlar: 


STAT *.COM $DIR 
STAT SECRET.BAS $DIR 


Dosyayı sistem halinde rehber haline çevirir. 


FILECOPY tek sürücü kullanarak dosyaların diskten diske kopyasına iman verir. 
Program, ekranda bütün talimatları verir. FHHLECOPY sizden her dosyanın tek tek- 
kopya edilip edilmeyeceğini teyid etmenizi ister. Program her dosya kopya edil- 
dikçe dosya adlarını vererek sizi haberdar eder. 
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FILECOPY *.COM Bütün .COM dosyalarını kopya eder. 
FILECOPY PIP.COM PIP.COM dosyasını kopya eder. 


DISCKIT?, DISCKIT3 ile de aynı fonksiyonlar yerine getirilir ancak kopya biraz 
vavaştır. Disk ve kaset arasında dosyaları transfer etmek gibi iki faydası daha mev- 
cuttur. Özel kullanımlar haricinde muhtemel olmayan ASCIIden farklı (adi yazı- 
lar) dosyalar kullanışlı bir biçimle transfer edilir. 


CLOAD (Kaset yükleme) iki parametre içerir, birincisi kaynak (kaset) dosya adı 
tırnak işareti içindedir, ikincisi varış yeri (disk) dosya adıdır. Eğer varış yeri dosya 
adı konmamışsa disk dosyası, kaset dosyasıyla aynı adı alır. Eğer kaynak dosya 
adı konmamışsa CLOAD teybin üzerindeki ilk dosyayı okur. Eğer kaset dosya adının 
ilk karakteri ! işareti ise normal kaset mesajı bastırılır. 

Örnek komut: 

CLOAD “MY LETTER” MYLETTER.TXT 


CSAVE (kasete sakla) üç parametre içerir. İlk parametre kaynak (disk) dosya adı- 
dır, ikincisi varış yeri (kaset) dosya adıdır ve tırnak işareti içindedir. Eğer varış yeri 
dosya adı konmamışsa kaset dosyası, disk dosyası ile aynı adı alır. Eğer kaset dos- 
ya adının ilk karakteri ! işareti ise normal kaset mesajı bastırılır. Eğer her iki dos- 
ya adı belirtilmemişse üçüncü parametre teybin yazma hızını belirlemek için 
kullanılır; 9 nominal 1000 baud için, | nominal 2004 baud için. Örnek komut: 


SCAVE OUTPUT.TXT “OUT PUT TEXT” 1 
CSAVE DATAFILE 


SETUP 


Bu kolaylık disk sürücü bölümünün seri interface ve 6128 tuş takımının karakte- 
ristiklerinin yeniden tanımlamaya imkan verir. CP/M Plus ile önceden hazırlan- 
mış ayrı faydalara benzemeyen, SETUP diskin konfigürasyon bölgelerini değiştirir 
(sadece disk cold-booted durumunda iken). Bu yolla PROFILE.SUB kolaylığı ile 
hareketi aynıdır. 

Program seçenek tablosu sürücüdür (menü-driven) ve ekran kısmen doğru ise ve- 
ya herhangi düzeltme gerekmiyorsa aşağıdaki soruya Y cevabıyla bir sonrakine geçer. 


Is this correct (YIN):.. 


Program CONTROL C tuşu ile durdurulur. Bütün değişiklikler yapıldığı zaman 
şu mesaj görüntülenir: 


230 


Do you want to up date your system disc (Y/N): . 
N, mevcut konfigürasyon bölgesini elinizde bulundurma şansı verir. Daha sonra: 
Do you want to restart CP/M (YIN): — 


Y, yeni konfigürasyonu yükleyip çalışmanıza izin verir. Konfigürasyon bölgesinin 
bir diskten diğerine kopya etmek için ya BOOTGEN'”i kullanın ya da kaynak dis- 


ten her soruya cevabı vererek ve “Dou you want to update your system disc (V/ N:” 
sorusuna Y cevabı vermeden varış yeri diskinizi girerek SETUP'a yükleyin. 


ASCII değerleri ondalık 32'den az olan karakterler, ! işaretini takip eden ©, A- 
Z, (X,İ,> ,- işaretlerinden uygun olanının yazılmasıyla, dizi içine yazılabilirler. 


Aşağıdakiler çok dikkat gerektiren bir seçeneklerdir: 
** Inıtial command buffer: 


Buna girilen herhangi bir karakter CP/M ilk yüklenirken sanki direkt konsol mo- 
da yazılmış gibi gözükecektir. Bu o anda belirli bir programın otomatik işletme 
etkisine sahip olması demektir. RETURN tuşunu ilave etmeyi unutmayın. ( | A0). 
Örneğin DIR'i otomatik olarak çalıştarmak için başlangıç komut buffer'ı aşağı- 
dakini içermelidir: 

DIR? M 


veya Dr.LOGO programı için: 
SUBMIT LOGO2 1M 


Sign-on string; 


Bu CP/M ilk yüklenirken ekranın en üstünde görüntülenen bir mesajdır. Carriage 


return/Satır besle etkisini yapan | J İ Min kullanılmasına dikkat edin. Standart me- 
sajın ilk kısmı 80 kolonluk modda çalışmak için ekran ve çerçeve renklerini ayar- 
lar, eğer saklanmışlarsa tam olarak kopya edilmelerini sağlar. 


Tuş takımı değişimi 

BASIC'in içindeki KEY DEF komutuyla belli tuşlara belli ASCII değerleri prog- 
ramlanabilir. Gereken parametreler tuş kodlarıdır ve ASCII değerleri bunları ayar- 
lar. Tuş numaraları bilgisayarınızın sağ üst köşesindeki tabloda veya “Bilginiz için” 
adlı konunun 4. bölümünderir. 
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Tuş takımı genişlemesi 


BASIC'deki KEY komutu ile ayarlanır. 


SON OLARAK 


DISCKIT2, SYSGEN, BOOTGEN, FILECOPY, SETUP, CSAVE ve CLOAD ko- 
mutları AMSTRAD tarafından yaratılmıştır. AMSTRAD'dan başka diğer CP/M 
sistemleri ile çalışmaz ancak diğer firmaların kendi aletleri için aynı işleri gören 
(genellikle de aynı adda) programları vardır. 


Aşağıdaki CP/M 2.2 programları, daha ileri düzeyde çalışanlar için Sistem Disk 
Paketinin 4. Yüzünde bulunmaktadır ve kullanımları SOFT159-A Guide to CP/M 
veya diğer referans kitaplarında ayrıntılı biçimde anlatılmıştır. 


ASM 8080 Assembler 

.DDT 8080 Disassembler 

DUMP Hexadecimal formatta dump kolaylığı 

ED Basit bir editör 

LOAD ASM tarafından yapılan .HEX dosyasını .COM'a çevirir. 
MOVCPM CP/M 2.2 ile yeni TPA boyutu yaratır. 

SUBMIT Konsol Komut Programının “batch process”i 

XSUB Geçiş programının “batch process”i 


Yukardaki programlar CP/M 2.2 ile kullanılmak içindir (4.Yüzde). Diğer yüzler- 
deki CP/M Plus programlarıyla karıştırmayın. 
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KONU 6 
LOGO'NUN TANITIMI 


Bu kısımda LOGO konusunun örneklerle ve eldeki komutlarla rehber hazırlaya- 
rak tanıtımı hedeflenmiştir. Bu bütün teferruatıyla izah eden eğitici veya referans 
rehberi değildir; ve bu konuda AMSOFT'un yayınlarına ve diğer bağımsız yayım- 
cılara baş vurmanız tavsiye olunur. 

Bu dersin içeriği; 


* LOGO kavramı 

* Dr. LOGO'nun yüklenmesi ve çalıştırılması 
* Turtle grafikleri 

* Kendi usulünüzü yazmak 

* Kendi usulünüzün montajı 


LOGO NEDİR? 


LOGO size daha önce program yapıp yapmamanıza bakmadan bir programcı gibi 
yetişmenize yardım edebilir. 


LOGO kullanması ve öğrenmesi çok kolay olduğu için süratle popülerite kazanan 
kuvvetli bir programlama lisanıdır. 


Siz usulleri tuğlalar gibi kullanarak LOGO programları meydana getirebilirsiniz. 
Dr.LOGO bir usuller topluluğudur ve siz bunları kullanarak kendi programlarını- 
zı yapabilirsiniz. 


1970'lerde bir grup bilgisayarcı ve öğretmen Seymour Papert?ın idaresi altında çok 
küçük çocukların program yapabilmesine ve bilgisayar kullanabilmesine izin ve- 
ren turtle grafikleri ile LOGO'yu geliştirdiler. 


Papert'ın söylediği gibi genç öğrencilerin düşünecekleri bir nesneyi yeni yollardan 
öğrenirken yardımcı bir aracı olan Turtle (kaplumbağa) geliştirdiler. 
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Dr.LOGO 


Dr.LOGO programları daha kolay hale getirmek için AMSTRAD bilgisavarları 
icin özel olarak hazırlanmış LOGO'nun düşünceli bir tamamlayıcısıdır. Genisle- 
melerin ilavesiyle 6128'in güçlü ses kolaylıklarının elde edilmesi mümkün kılınmış 
ve kursör tuşlarının ilavesiyle program düzeltmede kolaylık sağlanmıştır. 


Başlarken 


Dr. LOGO ile çalışmak için ana disk paketinizin 1. yüzünü bilgisayarın disk sürü- 
vüsüne sokun ve şunu yazın: 
ICPM 


A> promptu belirdiğinde diski çıkartın ve sistem disklerinden 3. yüzü (DR.1.O- 
GO HELP) girin. Dr. LOGO'yu çalıştırmak için şunu yazın: 
SUBMIT LOGO3 


Birkaç saniye sonra “Welcome” açılış mesajını ve ardından ? işaretini eöreceksi- 


niz. 


CP/M 2.2 İçin Dr. LOGO 


Ana disk paketinin 4. yüzü, Dr.LOGO'nun CP/M 2.2 ile çalışması için (AMS- 
RAD CPC664 ve CPC464 # DDII ile) kullanılır. Bu sebeple Dr.LOGO'- 
nun 4. yüz versiyonunun genel olarak 6128 ile kullanılması tavsiye edilmez. 


Eser buna rağmen Dr.LOGO'nun CP/M 2.2 versiyonunu kullanmak ister- 
seniz 4, yüzün kopyasını sokunuz ve şunu yazınız; 


ICPM 


A > belirdiği zaman ise şunu yazınız: 
SUBMIT LOGO2 
Birkaç saniye sonra “Welcome” açılış mesajını ve ardından ? işaretini göre- 


veksiniz. 
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İlk Adımlar 


? işareti ikazı Dr. LOGO'nun tuş takımından herhangi bir şey yazmanızı bekledi- 
ğini söyler. Şunu küçük harflerle yazınız: 
td 60 


Başladığı yerden bittiği yere kadar arkasında bir çizgi bırakan ve 60 birim ileriye 
giden bir kaplumbağa (turtle-büyük bir ok başı) göreceksiniz. Ekran, ? işareti ika- 
zının ekranın dip kısmına yaklaşmasıyla büyük bir grafik alanı ve daha küçük me- 
tin arası vermek için temizlenir. 


Dr.LOGO büyük metin ve grafik alanı verebilmek için ekranı ayarlar. Aşağıdaki- 
ni yazınız: 

rt 90 

Kaplumbağa 90 derece sağa gitmiştir. 


Şimdi şunu yazınız: 


fd 60 
Başka bir çizgi aynı uzunlukta ilkine dik açı yaparak çizilir. 


Ekranda neler olduğunu görmek için fd, bk, rt, lt (sırası ile; ileri, geri, sağa ve 
sola) talimatlarını deneyin. 


Dr. LOGO Yöntemleri 


Şimdi siz, Dr.LOGO'da yapılmış ve “ilkeller?? diye adlandırılan komutları ekle- 
yerek ilk yönteminizi yazabilirsiniz. 


td, bk,rt ve lt yapılmış ilkellerdir ve kendi yönteminizi yazmak için yapı taşları 
gibi istediğiniz zaman kullanırsınız. 


Diğer faydalı ilkel cs'dir ve ekranı temizleyip başa döner. 
Basit Bir Yöntem Yazmak 


eğer hareket aşağıdaki gibi olursa görüntülemek mümkündür. 
fd 60 rt 99 


eğer yukarıdaki 4 defa tekrarlanırsa kenarları 60 birim olan bir kare çizilir. 


repeat 4 (fd 60 rt 90) 
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ekranı temizleyin ve yukarıdakini yazarak ne olacağını izleyin. 
Bu formülü veni bir yöntem yapmak için (kare adlı) şunu yazın. 


to kare 
repeat 4 (fd 60 rt 90) 
end 


Dr.LOGO “'kare”yi anlar ve her “kare” sözcüğü geçtiğinde bir kare çizer. Biz bu 
vönteme herhanei bir ad verebiliriz fakat ne olduğunu hemen hatırlayalım diye ““ka- 
re''yi seçtik. 


Dr.LOGO bütün komut setlerini beraber yazmamıza imkan verir o zaman talimat: 
kare rt 45 kare 


2 kare çizer ki 2'ncisi 1'ncisiyle 45 derecelik açı yapar. 


Parametreli Yöntemler 


Kenar boyutları değişik kareler çizen bir yöntem yapmak için “kare” tarifini de- 
giştirmek gerekir. Şöyle ki: 


to sguareany size:side 
repeat 4 (fd:side rt 99) 


end 

:side değişkeninin kolondan başladığını önceden belirtmeniz gerekir. Bu Dr. LO- 
GO'ya :side'in bir komuttan çok bir değişken olduğunu belirtir. Sguareanysize yön- 
temini kullanırken :side değişkeninin bir değeri olması gerekir. Sguarcany size 158 
emri, her köşesi 150 ünitelik bir kare meydana getirir. İki emri beraber toplayarak 
deneyin ve neler olacağını görün. Örnek olarak: 


cs sguareanysize 100 rt sguareanysize 150 


kaplumbağa, değişik boyutlarda ve biri öbürüne 45 derece açı yapan iki tane kare 
çizecektir. 


Komut satırı, bir ekran satırını aşınca, Dr. LOGO'nun sizi ! işaretiyle uyarmasına 
dikkat ediniz. 
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Değerleri Hatırlamak İçin Kullanılan Değiş- 
kenler 


Dr. LOGO değerleri hatırlamak için değişken kullanmaya da izin verir, bu bir emirde 
geçen değerlerde olabilir. 


Önce adı üçgen olan yeni bir komut yazalım: 


to üçgen 
repeat 3 (fd :edge rt 120) 
end 


Test için şunu yazabiliriz: 
make “edge 100 
üçgen 


Eğer :edge'nin değerini bilmek istiyorsak ? prompt'undan sonra :edge yazmak ye- 
terlidir, Dr. LOGO değeri yazacaktır. 


Son olarak :edge değişkenini bir model çizdirmek için kullanabiliriz. :Edge değe- 
rinin her seferinde daha öncekine göre nasıl arttığına ve her bir modeli çizdiğinde 
nasıl büyüdüğüne dikkat ediniz. 


to model 

üçgen It 60 üçgen rt 68 
make “edge :edge s4 
model 

end 

make “edge 10 

cs model 


Yeteri kadar gördükten sonra durdurmak isterseniz (ESCJ tuşuna basınız. 
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Programlar ve Yöntemler Yazmak 


Dr. LOGO, yazım hatalarımızı ve belirtiğimiz yöntemdeki yanlışlarımızı düzelt- 
memize razı olur. Düzeltme tuşları, kürsörün tuşları, yukarı, aşağı, sağa, sola git- 
menize yardım eder. Eğer bu tuşlara CONTROL tuşuyla beraber basarsanız, metnin 
başına, sonuna veya satır başına, sonuna gider. CLR kürsör'ün altındaki karakte- 
ri siler, DEL ise kürsörün solundaki karakteri siler. RETURN tuşu Dr. LOGO'ya 
bir satırın bittiğini ve yeni satır istendiğini belirtir. ESC, programın terk edildiği- 
ni; COPY ise programın yazılmasının bittiğini belirtir. Yeni komutlar ve yöntem- 
ler yazarken sadece elinizdeki metni olduğu gibi ekrana geçirin. Metnin içindeki 
karakterler kürsördeki pozisyonlarına göre yazılmıştır. 


Daha önceden var olan bir yöntemi görmek için ed komutunu kullanın; Dr.LO- 
GO bunun eski durumunu size gösterecektir. İşte o zaman yukarda bahsedilen tuşları 
kullanarak, istediğiniz değişikliği yapabilirsiniz. 


'model” adlı daha önceden yaptığınız programı isteyin: 
ed **model 


Düzeltme tuşlarıyla değişiklikleri yapın. Bitirdiğiniz zaman ESC tuşuna basın, 
Dr.LOGO hemen ekrana düzeltilmiş programı yazacaktır. ed “modeli tekrar ya- 
zın ve 4 sayısını 8 ile değiştirdikten sonra çıkmak için COPY'ye basın. Programı 
tekrar işletin ve ekran çıkışının nasıl değiştini görün. Tabii başlangıç :edge değeri- 
ni belirtmeyi unutmayın. 


İşlem Kolaylıkları 


Dr.LOGO'nun kullandığı çalışma alanı “node”lara ayrılmıştır. Ne kadar kaldığı- 
nı şöyle anlayabilirsiniz: 


nodes 


Sıklıkla, “*node”ların bitimine yakın, Dr. LOGO çalışma alanını düzenleyecektir 
ve siz bunu kaplumbağa'nın biraz ara vermesi ile anlayabilirsiniz. Sizde Dr.LO- 
GO'dan, çalışma alanını düzenlemesini isteyebilirsiniz, bunu şöyle belirtebilirsi- 
niz: 

recycle 
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Dr.LOGO yer kalmadığını belirtinceye kadar, sizin çalışmanıza izin verecektir. 
Eğer CP/M 2.2'nin Dr.LOGO'sunu kullanıyorsanız (4. Yüzdeki) öncelikle diski- 
nizde boş yer olup olmadığına bakın, çünkü yaptığınız programları yüklemek iste- 
yebilirsiniz. Bunun için AMSDOS'daki CAT komutunu kullanabilirsiniz. 


Şimdide, belirtilen komutları kullanarak, biraz çalışın Dr. LOGO hakkında öğren- 
diklerinizle, gittikçe daha iyiye giden çalışmalar yapacağınıza eminiz. 


Dr.LOGO ile işiniz bittiğinde şunu yazın: 


bye 


Dr.LOGO Komutlarının Listesi 


Gelecek bölümdeki Dr.LOGO komutlarının alfabetikal liste gurupları, sıklıkla kul- 
lanım örnekleriyle, size kullanmasını gösterecektir. 


NOT: 
Asterix (*) işareti ile belirtilmiş komutlar CP/M 2.2'nin Dr.LOGO'suyla 
ÇALMAZ. Ve bu komutları kullanan programlar, CP/M 2.2 ile çalışan 


CPC664 veya CPC464 * DDII ile uygun değildir. 


Kelime ve Listeleme Komutları: 


(Aşağıdaki örneklerde ? ve > işaretlerine dikkat edin) 
ascii 


Giriş kelimesinin ilk karakterinin ASCII değerini verir. 


?ascii “G 
71 

?ascii “g 
103 
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bf 


(but first) Girilen karakterlerin ilki hariç diğerlerini görüntüler. 
?bf “amstrad 

mstrad 

?bf f1 2 3) 

(2 3) 


bi 


(but last) Girilen karakterlerin sonuncusu hariç diğerlerini görüntüler. 


?bl “amstrad 
amstra 
?b1(123 4) 
(123) 


char 


Verilen numaranın ASCII değerindeki karakter karşılığını görüntüler. 
?char 83 
S 


count 


Girilen karakterlerin sayısını verir. 
?count “altı 

4 

?count (0 1 2) 

3 


empiyp 


Giriş karakteri boş bir kelime veya liste ise DOĞRU (TRUE), aksi ise YANLIŞ 
(FALSE) görüntülemesi verir. 


?emptyp” 
TRUE 
?emptypl | 
TRUE 
?emptyp (Xx) 
FALSE 
?make “xf )J 
?emptyp :x 
TRUE 
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first 


Girilen karakterlerin ilk elemanını görüntüler. 
?first “zebra 

y4 

?first (1 2 3) 

4 


fput 
(first put) Birbiri arkasına girilen iki elemanı birleştirerek yeni bir dizi yapar. 


?fput “a “'mstrad 
amstrad 

?fput 11/2 31 
(123) 


item 
Dizide belirlenen karakteri görüntüler. 


?item 4 “amstrad 
t 


* 
last 


Girilen karakterlerin son elemanını görüntüler (first ile karşılaştırın). 
?last “amstrad 
d 


pi 


lc 


Girilen alfabetik karakterleri küçük harfle yazar (uc'ye bakın). 
Ile “AMSTRAD 
amstrad 
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list 

Girilen karakterlerden liste çıkartır, bunları köşeli parantez ile sınırlandırır (se ile 
karşılaştırın). 

?(list 1 2 83 4) 


(1234) 

?list “dr logo (amstrad| 
(dr logo (Jamstradj| 
?list) 

(1) 


* 


listp 
Girilen karakterler bir liste ise DOĞRU (TRUE), değil ise YANLIŞ (FALSE) yazar. 


?listp “anne 
FALSE 


?list (baba kardeş yeğen) 
TRUE 


» 

Iput 

(last put) Birbiri arkasına girilen iki elemanı, ilkini ikincinin sonuna getirerek, ye- 
ni dizi yapar. 

?lput “d “amstra 

amstrad 


?lput “d (Jamstraj 
lamstra dj 


* 


memberp 


İlk girilen, ikinci girilen gurubun elemanı ise TRUE (doğru) çıkışını verir. 
?memberp “y” yalnız 


TRUE 
?memberp “çikolata o |I(vanilyajlçikolatajlçilekli 
FALSE 
?memberp (çikolata) | (Ivanilyajlçikolatajlçilekli 
TRUE 
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* 


numberp 


Girilen sayı ise TRUE çıkışını verir. 
?numberp 374.926 

TRUE 

?numberp “altı 

FALSE 

?numberp first (2 4 6 8) 

TRUE 


» 


piece 

Girilen elemanda belirtilen sayılar arasındaki grubu yazar. 
?piece 4 7 “İstanbul 

anbu 

?piece 1 4 (Ahmet Mehmet Ali Veli Osman| 

(Ahmet Mehmet Ali Veli) 


se 


(sentence) Girilen elemanlardan bir liste meydana getirir ve bunu parantezler ara- 
sında belirtir. (list ile karşılaştırın). 

?make “instr — listrl 

repeat 4 (fd 5Ort 90| 

?run (se “cs :instr list “ht) 


instr ile list arasındaki karakter (SHIFT)J ile 0 tuşuna basarak elde edilir. 


* 


shuffle 


Verilen listedeki elemanları gelişigüzel sıralar. 


?shuffle (abc dj 
Icbdaj 
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» 


uc 


Yazılan alfabetik karakterleri büyük harfle yazar (Ic ile karşılaştırın). 
?uc “ahmet 
AHMET 


* 


where 


memberp ifadesinde sorulan harfin kaçıncı sırada olduğunu belirtir. 
?memberp “h” nehir 

TRUE 

?show where 

3 


word 


Girilen kelimelerden yeni bir kelime yapar. 
?word “ay “ışığı 
ayışığı 


wordp 


Girilen sayı veya kelime ise TRUE çıkışını verir. 
?wordp “merhaba 

TRUE 

?wordp|l | 

FALSE 


Aritmetik işlemleri: 


* 


arctan 


Girilen sayının (derece olarak) ark tanjantını hesaplar. 
?arctan 0 

ğ 

?arctan 1 

45 
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COS 


Girilen derecenin kosinüsünü hesaplar. 
?cos 60 
9.5 


ınt 
Girilen bölümlü sayının sadece tam sayısını verir. 


?int 4/3 
1 


* 


guotient 


Girilen iki sayının bölümü sonrası tam sayıyı verir. 
?guotient 14 4 

3 

721414 

3.5 


random 


Giriş sayısından küçük, rastgele, negatif olmayan bir sayı üretir. 
?random 24 
7 


* Pİ 
remainder 


Birinci sayının ikinciye bölünmesinden kalan sayıyı görüntüler. 
?remainder 7 3 

1 

?remainder 8 4 

0 
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* 


rerandom 


Aynı random sırasında yeni bir random alt gurubu üretir. 
?repeat 10 ((type random 14 char 9)| 


3 7 5 3 2 (0) 4 2 6 
?repeat 19 ((type random 14 char 9)| 

9 9 1 (0) 6 1 3 5 1 
?rerandom 

?repeat 10 ((type random 19 char 9(J 

2 9 (0) 3 1 6 2 3 7 
?rerandom 

?repeat 10 ((type random 14 char 9)| 

2 9 (0) 3 1 6 2 3 7 
* 
round 


Girilen sayıyı en yakın tam sayıya tamamlar. 
?round 3.3333333 

3 

?round 3.5 

4 


sın 
Girilen derece cinsinden sayının sinüsünü verir. 


?sin 30 
0.5 


— 


Girilen sayıların toplamını verir. 
2422 

4 

2242 

4 
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Girilen sayıların farkını verir. 
7-195 

5 

710-5 

5 


* 


Girilen sayıların çarpımlarını verir. 
?* 46 


Girilen sayıların bölümünü verir. 
21255 

5 

72515 

5 


Mantık İşlemleri: 


and 


Girilen ifadeler doğru ise TRUE görüntüler. 
?and (3< 4) (7 >4) 
TRUE 


not 


Giriş ifadesi doğru ise FALSE yanlış ise TRUE görütüler. 


?not (3—4) 
TRUE 

?not (3-3) 
FALSE 
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or 


Girilen bütün ifadeler yanlış ise FALSE görüntüler. 
?or “TRUE" FALSE 

TRUE 

?or (34) (1-2) 

FALSE 


Girilen iki ifade birbirine eşitse TRUE, yanlış ise FALSE görüntüler. 


7 “LOGO” LOGO 
TRUE 
71-2 
FALSE 


> 


İlk girilen ifade ikinciden büyükse TRUE, aksinde FALSE görüntüler. 
? 19 20 

FALSE 

220 19 

TRUE 


< 


İlk girişen ifade ikinciden küçükse TRUE, aksinde FALSE görüntüler. 
? 27 13 

FALSE 

713 27 

TRUE 


Değişkenler: 


local 


Akış prosedüründe kabul edilen ve prosedürün çağırdığı değişken isim girişleri ya- 
ratır. 
> (local “Xx “y “z) 
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make 


Girilene eşit değişken isim girişleri yaratır. 
?make “side 50 

?:side 

50 


* 


namep 


Giriş kelimesi daha önceden belirlenmiş ise TRUE görüntüler. 
?make “un “çikolata 

?:un 

çikolata 

?namep “un 

TRUE 

?namep “çikolata 

FALSE 


* 


thing 


Değişken isim girişinin değerini görüntüler. 
?make “bilgisayar “amstrad 
?thing “bilgisayar 


amstrad 
Prosedürler: 
* 

define 


Özgün prosedür isminin belirtilmesinin, belirtim listesini yapar. 
?define “say.hello (| | (pr “helloji 

?po “say.hello 

to say. hello 

pr “hello 

.text “say.hello 


(| Ifpr “hellojl 
end 
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end 


Prosedür belirtiminin sonunu belirtir; tek başına en son satırın başında yer almalı- 
dır. 

?to kare 

>repeat 4 |fd59rt 90) 

>end 

kare defined 

?kare 


po 


(print out) özgün prosedür(ler) veya değişken(ler)in ifade(leri)sini görüntüler. 
?po “kare 

to kare 

repeat 4 (fd 59 rt 90) 

end 

?make “x 3 

?po “Xx 

x is3 


pots 


(print out titles) Çalışmada kullanılan bütün prosedürlerin adını ve başlıklarını verir. 
?pots 


* 


text 


Özel bir prosedürün listesinin açıklamasını görüntüler. 
?to yıldız ;beş köşeli yıldız 

> repeat 5 (fd 30rt 144 fd 301t 72) 

>end 

yıldız defined 

?text “yıldız 

(| | (repeat 5 (fJd30rt 144 fd301t 72))) 


to 


prosedür açıklamasının başladığını belirtir. 
?to kare 

>repeat 4 |Jfd59rt 90) 

>end 

kare defined 
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Düzeltme: 
ed 


(edit) Belirtilen prosedür ve/veya değişkenleri düzeltmek için ekran ““'buffer”'ına 
yükler. 
?ed “kare 


* 


edall 


Bütün prosedür ve değişkenleri düzeltmek için ekran ““buffer”'ına yükler ve ekran 
editörüne giriş yapar. 
?edalı 


* 


edf 


Belirtilen disk dosyasını, direkt olarak diskten ekran ““buffer”ına yükler veya ye- 
ni bir dosya yaratarak ekran editörüne boş bir “buffer” girer. 
?edf “yıldız 


Printer Fonksiyonları: 


* 


copyon 


Metnin printer'e yazılmasını başlatır. 
?copyon 
* 


copyoff 


Metnin printer'e yazılmasını sonlandırır. 
?copyoff 


Metin Ekranı: 


ct 


(clear text) Ekrandaki bütün metni ve aynı zamanda kürsörü de siler ve kürsörü 
ekranın sol üst köşesine yerleştirir. 
?ct 
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* 
Cursor 


Metin ekranında kürsörün satır ve kolon numarasını içeren koordinat listesi gö- 
rüntüler. 

?ct 

?cursor 

(01) 

?”(type (Kürsörün şu andaki pozisyonu | show cursor 

Kursörün şu andaki pozisyonu (32 23) 


pr 

(prınt) Girilen nesneleri metin ekranında görüntüler, son girişi bir “carriage return” 
ile izler (show ve tpye ile karşılaştırın). 

?prfabclj 

abc 


* 


setcursor 


Kürsörü, girilen ekran metninin listesinde belirtilen yere götürür. 
?ct 

?to resim 

>make “Xx random 24 

>make “'y random 12 

>setcursorlist:x :ypr “* 

>end 

?resim 


setsplit 


Split ekranında satır sayısını belirler 


? setsplit 10 


show 


Girilen nesneleri metin ekranında görüntüler, son girişi bir ““carriage return” ile 
izler (pr ve type ile karşılaştırın). 


?show Ja b c| 
(a b cj| 
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ts 


(test screen) Bütün metin ekranını seçer. 
?ts 


type 


Girilen nesneleri ekranda görüntüler ancak son girişi bir ““carriage return” takip 
etmez. 

?type Ja b cj| 

abc 


Grafik ekran: 


Ekran, dört renk veren, AMSTRAD BASIC de kullanılan aynı koordinatlara sa- 
hip, Mode I'dedir. Diğer bir deyişle bütün ekran pozisyonları önceden numara- 
lanmış ekran noktasının yakınlarına yerleştirilecektir. Kırmızı, yeşil ve mavi sırasıyla 
şu renkleri alırlar: 9, 1, 2. 


clean 


Kaplumbağa hariç tüm grafik ekranı siler. 
?td 59 
?clean 


CS 


(clear screen) Grafik ekranı siler ve kaplumbağa'yı (0,0) pozisyonuna yerleştirir. 
?rt 90 fd 50 
?cs 


dot 


9 andaki kalem renginde, belirtilen koordinat listesindeki yere bir nokta koyar. 
? dot (50 19) 
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* 


dotc 


Belirtilen Koordinat listesindeki noktanın renk numarasını verir, eğer yerleşimi ekran 
dışında ise -1I görüntülenir. 
?cs 

?setpc 1 

?do -50 50 

?setpc 2 

?dot 50 59 

?setpc 3 

gdot 59 -59 

?dotc 59 54 

2 

?dolitc -5 -50 

9 

?dotc 1000 3000 

-1 


fence 


Görünen grafik ekranda kaplumbağa'yı sınırlayan bir hudut kurar. Window hu- 
dudu hareket ettirir. 

?fence 

?td 300 

Turtle out of bounds 


pi 

fill 

g andaki kalemin durumunu kullanarak, kaplumbağa'nın altındaki noktanın ren- 
gini değiştirerek (ve aynı renkte bütün yatay ve dikey sürekli noktaları da), o anki 
kalem rengi ile bir alan çizer. 

?make “x 5 

?cs 

?st 

?pd 

?reeat 30 (fd: x rt 9dmake “x:x 4#5| 

?td 20 rt 90 

?fd 10 

?pu 

?home 

?bk 2 

?pd 

?setpc 2 

?fill 
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fs 


(full creen) Bütün grafik ekranı seçer. 
?fs 


pal 


(palette) Kaleme eşlik eden renklerin sayısal karşılıkları görüntüler. 
?pal 2 
(9 2 2) 


setbg 


Grafik ekranın arkasını, girilen renk sayısına bağlı renge getirir. 
?sf 

(9 SS 5 FENCE 1) 

(Bu, ekran arkasının Wa ayarlandığını gösterir.) 

?pal 9 

(9 0 1) 

?setbg 2 

?sf 

(2 SS 5 FENCE 1) 


setpal 
(set palette) Palet kalem rengini ayarlar. Kaleme renkleri bağlar. 


?setpal 3 (1 1 2) 
?pal 3 (1 1 2) 


* 


setscrunch 


Grafik ekran görünümünü giriş sayısına göre ayarlar. 
?sf 

(9 SS 5 FENCE 1) 

? to çember 

>repeat 360 (fdirt 1) 
>end 

çember defined 
?setscrunch 2 

?sf 

(9 SS FENCE 2) 
?çember 

?setscrunch 2.5 
?çember 
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st 


(screen facts) Grafik ekran hakkında bilgi verir. Formu şöyledir | <Geriplan ren- 
gi > < ekran durumu > < bölme boyutu > < pencere durumu > < scrunc >|.< ge- 
riplan rengi > background pen numarasıdır (CP/M 2.2'de genellikle 0), < ekran 
durumu >nda SS (bölmeli ekran), FS (bütün ekran), TS (metin ekranı) kullanılır. 
< bölme boyutu >, bölmeli ekranın metin penceresinde görüntülenen metin satır 
sayısıdır. < pencere durumu >, WINDOW, WRAP, PENCE modlarını belirtir. 
<scrunch > ekranın görünümüdür ve /'e ayarlıdır. Stescrunch ile sıfırlanabilir 
(CP/M 2.2 ile geçezsizdir.) 


?sf 
(9 SS 5 FENCE 2.5) 


SS 


(split screen) Grafik ekranda metin için pencere açar. 
?ss 


window 


wrap veya fence ifadelerinden sonra kaplumbağa'nın görünen grafik ekranın dışı- 
na çizmesine müsaade eder. 

?fence fd 300 

Turtle out of bounds 

?window 

?td 300 


wrap 


Sınırları aştığında, kaplumbalğa'nın grafik ekranda, ters tarafta, tekrar görünme- 
sini sağlar. 

?cs wrap 

?rt 5 fd 1000 

?cs window 

?rt 5 fd 1000 
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Kaplumbağa Grafikleri: 


bk 


(back) Kaplumbağa'nın durduğu yerden belirtilen adım kadar geri gitmesini sağ- 
lar. 

?2cs fd 159 

?bk 50 


fd 


(forward) Kaplumbağa'nın durduğu yerden belirtilen adım kadar ileri gitmesini 
sağlar. 
?td 80 


* 


home 


Kaplumbağa'yı evine ((9 0) pozisyonu — grafik ekranın ortası) döndürür. 
?ftd 190 

?rt 45 

?ftd 100 

?home 


ht 


(hide turtle) Kaplumbağayı görünmez hale getirir. 


?ht 
?cs fd 59 
?st 


It 


(left) Kamlumbağa'yı belirtilen derece kadar sola döndürür. 
2lt 90 
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pd 


(pen down) Kamlumbağa'nin kalemini aşağı çevirir; kaplumbağa çizmeye devam 
eder. 

?fd 20 pu fd 20 

?pd 

?fd 20 


pe 
(pen erase) Kaplumbağa'nın rengini geri plan rengine çevirir; böylece çizilmiş sa- 
tırları siler. 

?fd 59 

?pe 

?bk 25 

?ftd 50 

?pd fd 25 


pu 
(pen up) Kaplumbağa'nın kalemini yukarı çevirir; kaplumbağa çizmeyi durdurur. 
?fd 30 
?pu 
?fd 39 
?pd fd 34 


px 
(pen exchange) Kaplumbağa'yı renk değiştirir; daha önce boyanmış yerde ise ter- 
sini, değilse uygun rengi verir. 

? ftd20pufd20 

?pd setpc 3 fd 20 

?px 

?bk 80 

?fd 80 

?pd bk 100 


rt 


Kaplumbağa'yı belirtilen derece kadar sağa döndürür. 
?rt 90 
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seth 


(set heading) Kaplumbağa'yı belirtilen sayı kadar döndürür; sayı pozitif ise saat 
yönüne, negatif ise saat yönünün tersine döndürür. 
?seth 99 


setpc 
(set pen colour) Kaplumbağa'nın kaleminin rengini girilen sayıya göre ayarlar. 


?setpc 1 


setpos 
(set position) Kaplumbağa'yı girilen koordinat listesinde belirtilen pozisyona götürür. 
?setpos (39 20) 


* 


Setx 


Kaplumbağa'yı yatay pozisyonda, belirtilen x koordinatına götürür (sety'yede 
bakın). 


?setx 80 
?td 100 
?setx -50 
?td 50 

Kk 

sety 


Kaplumbağa'yı düşey pozisyonda, belirtilen y koordinatına götürür (sety'yede 
bakın). 

?sety 90 

?td 20 

?sty -50 

?ftd 50 


st 


(show turtle) Kaplumbağa kaybolmuşsa görünür hale getirir. 
?ht 

?fd 50 

?st 
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tf 


(turle facts) Kaplumbağa hakkında bilgi verir. Formu şöyledir: ((xkoord) (ykoord) 
(başlık) (kalem) (k.rengi) (görünürlük)|. (xkoord) kaplumbağa'nın x koordinatı- 
dır, (ykoord) y koordinatıdır. (başlık) kaplumbağa'nın kapladığı hacmi belirtir. 
(görünürlük), kaplumbağa'nın kapladığı hacmi belirtir. (görünürlük), eğer 
kaplumbağa görünüyorsa TRUE yazar. (kalem) kalemin durumunu belirtir: 
PD (kalem aşağı), PE (silici kalem), PU (kalem yukarı). (k.rengi) kalemin renk 
numarasını belirtir. 

?setpos (15 30) 

?rt 60 

?setpc 3 

?pe 

?ht 

?tf 

(15 39 60 PE 3 FALSE) 


k 


towards 


Koordinat listesinde durumu belirtilmiş kaplumbağa kadranının yapabildiği baş- 
lık görüntüler. 
?set towards list :x :y 


Çalışma Alanı Düzenlemesi: 
er 


(erase) Çalışma alanındaki belirli bir prosedürü siler. 
?er “kare 


* 


erall 


Çalışma alanındaki tüm verileri siler. 
?erall 
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ern 


(erase name) Çalışma alanındaki belirlenen değişkenleri siler. 
?make “kenar (100) 
?make “açı (45) 
?:kenar:açı 
(140) 
145) 
?ern (kenar açıl 
?:kenar 
kenar has no value 


nodes 
Çalışma alanında ne kadar boş yer kaldığını görüntüler. 
?nodes 


* 


noformat 


Prosedürleri yorumları ile beraber çalışma alanında boş bir yere formatlanmaya 
götürür. 
?noformat 


* 


poall 


Çalışma alanındaki bütün değişken ve prosedürlerin açıklamalarını görüntüler. 
?poall 


*pons 


Çalışma alanındaki bütün büyük değişkenlerin adını ve değerlerini görüntüler. 
?pons 
medium is 40 
small is 20 
large is 84 


* 


pops 
Çalışma alanındaki bütün prosedür ve açıklamaları görüntüler. 
?pops 
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recycle 


Mümkün olduğunca az yer kullanarak çalışma alanını reorganize eder. 
?recycle 
?nodes 


Destekleme Listeleri: 


glist 
(get list) Kendi destekleme listesinde, destek isim girişi yapılmış, çalışma alanında- 


ki bütün nesnelerin listesini görüntüler. 
?glist “.DEF 


gprop 
(get property) Adı konmuş nesnenin, destekleme adı girilmiş destek değerini gö- 
rüntüler. 


?make “yükseklik “72 
?gprop “yükseklik “.APV 
72 


plist 
(property list) Adı konmuş nesnenin destekleme listesini görüntüler. 


?plist “yükseklik 
((APV 72) 


pprop 
(put property) Girilen destekleme çiftini, adı konmuş nesnelerin destekleme liste- 
sine yerleştirir. 

?pprop “master “.APV “Scott 

?:master 

Scott 
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* 
pps 
Çalışma alanındaki bütün nesnelerin, standart olmayan, destekleme çiftini gö- 
rüntüler. 
'pprop “Sally “extension 213 


?pps 
Sally's extension is 213 
?plist “SalIy 


lextension 213) 


remprop 


(remove property) Adı konmuş nesnelerin destekleme listesinden belirtilen deste- 
lemeleri değiştirir. 
?remprop “master “.APV 


Disk Dosyaları: 


* 
changef 
Diskteki bir dosyanın adını değiştirir. 
?dir 
(KARE ÇEMBER YILDIZJ 
?changef “kutular “kare 
?dir 
(KUTULAR ÇEMBER YILDIZ) 
* 
defaultd 
Hatalı sürücünün adını görüntüler. 
?defaultd 
a: 
dir 


(directory) Hatalı veya özgün diskteki dosya adlarını Dr.LOGO listesi halinde gö- 
rüntüler. 


terleri) kullanımı. Dr. LOGO'nun *işaretini kabul etmediğini gözleyiniz.) 
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*dirpic 
Hatalı veya belirlenmiş diskten görüntü dosya adları listesini görüntüler. Çok bü- 
yük dosya adını da kabul eder. 

?dirpic “b: 

IMY-PICK KARE YILDIZ NOTLARJ 


load 


Çalışma alanındaki isimli dosyayı diskten okur. 
?load ““myfile 
?load “biyıldız 


* 


loadpic 


Grafik ekrana belirli resim dosyasını yükleyerek, çizimi tekrar yaratır. 
?loadpic “my pic 
?loadpic “b:my pic 


save 


Çalışma alanının içeriğini belirlenen disk dosyasına kaydeder. 

?save “shapes 
NOT- Yüklemeden önce format edilmiş diskte yeterli boş yer olup olmadığını kontrol 
edin. Hiçbir zaman master disklerine yükleme yapmayınız. Eğer CP/M 2.2.'nin 
Dr.LOGO'sunu kullanıyorsanız, çalışmanın arasında disk değiştiremezsiniz, ki 
CP/M2.2 Dr.LOGO'nun bulunduğu bölümde programlarınız için yeterli boş yer 
vardır. 


* 


savepic 


Grafik ekran içeriğini belirlenen görüntü dosyasına kaydeder. 
?savepic “my pic 
?savepic “b:my pic 


NOT- Yüklemeden önce format edilmiş diskte yeterli boş yer olup olmadığını kontrol 
edin. Hiçbir zaman master disklerine yükleme yapmayınız. Eğer CP/M 2.2'nin 
Dr.LOGO”sunu kullanıyorsanız çalışmanın arasında disk değiştiremezsiniz, ki CP/M 
2.2 Dr.LOGO'sunun bulunduğu diskte programlarınız için yeteri kadar boş yer 
vardır. 
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* 


setd 


(set drive) Belirlemiş sürücüyü çalıştırır. 
?defaultd 
A: 
?dir 
IKUTULAR ÇEMBER YILDIZ| 
?setd “b: 
?defaultd 
B: 
?dir 
(ÜÇGEN EV/J 


Tuştakımı ve Oyunçubuğu: 


buttonp 


(button pressed) Belirlenmiş oyunçubuğunda düğme aşağıdaysa TRUE görüntü- 
ler; 0 ve 1 sayıları oyunçubuğunun iki olasılığını belirtir. 
?to ateş 

label “loop 

if (buttonp 0) (pr (fire 9111 

if (buttonp 1) (pr (fire 111) 

go “loop 

end 


Oyunçubuğunun pozisyonu paddle ile test edilir. 


keyp 


Eğer bir karakter tuştakımına yazılmış ve okunmayı bekliyorsa TRUE görüntüler. 
?to inkey 
if keyp (op rel fop “J 
end 
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paddle 


Ovunçubuğunu 0 veya | pozisyonuna döndürür. Oyunçubuğunun pozisyonları aşa- 
ğıda belirtilmiştir: 


Geri dönen değer Açıklama 

255 Hiç bir tuşa basılmamış 

0 Yukarı 

Il Yukarı ve sağa 

2 Sağa 

3 Aşağı ve sağa 

4 Aşağı 

5 Aşağı ve sola 

6 sola 

7 Yukarı ve sola 
?paddle 0 
255 


Ateş tuşu buttonp ile test edilir. 


rc 


(read character) Tuştakımına ilk 
yazdırılan karakteri görüntüler. 
?make “key rc 


....arkasından X tuşuna bakın... 
?:key 
Xx 


rl 


(read list) Tuştakımına yazılmış bir satır içeren listeyi görüntüler; girişi bir ““carri- 
age return”nün izlemesi gerekir. 

?make “instr-list rl 

repeat 4 (fd 50 rt 90) 

?:nstr list 

(repeat 4 (fd 50 rt 99) 
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rd 
(read guote) Tuştakımına yazılmış bir satır içeren kelimeyi görüntüler; girişi bir 
“carriage return”nün izlemesi gerekir. 


?make “komut rg 
repeat 3 (fd 60 rt 120) 
?:komut 

repeat 3 (fd 60 rt 120) 


Ses: 


Ses komutları AMSTRAD'ın Dr.LOGO'sunda tektir ve AMSTRAD BASIC ile 
benzeşir. 


Daha fazla açıklama için Temel kursun 9. bölümüne bakınız. 


sound 


Ses kuyruğuna bir ses koyar. Formu şöyledir: ((kanal durumu) (ton periyodu) (sü- 
re) (volüm) (volüm envelopu) (ton envelopu) (gürültü)|. (Süre)den sonraki para- 
metreler isteğe bağlıdır. 


?sound (1 29 50) 


env 


Volüm envelopu oluşturur. Formu şöyledir: ((envelop numarası) (envelop bölü- 
müj)l| 

?env (1 190 2 29) 

?sound (1 200 300 5 11 


ent 


Ton envelopu oluşturur. Formu şöyledir: ((envelop numarası) (envelop bölümü)| 
?ent (1 100 2 29) 
?sound (1 200 300 5 1 1) 
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release 


sound komutuyla üst duruma ayarlanmış ses kanallarını bıraktırır. Kanal bırak- 
ma durumları şöyledir: 


Giriş değeri Bırakılan kanal 

0 Hiçbiri 

I A 

2 B 

3 A veB 

4 C 

3 A veC 

6 BveC 

7 A,BveC 
?release 1 


Kontrol Akışı: 


bye 


Dr.LOGO bölümünden çıkış 
?bye 


co 


CONTROL Z, pause veya ERRACT tarafından konmuş arayı sonlandırır. 
?co 


go 


Aymı giriş kelimesi ile birlikte, label ifadesini takip eden o anki prosedürü çalıştı- 
rır. 
> go “loop 


if 
Giriş ifadesindeki değere bağlı iki kullanım listesini bir ifade olarak çalıştırır; giriş 
kullanım listeleri çift taraflı köşeli parantez içine alınmalıdır. 


> if (a > b) (pr (a büyüktürli 
> (pr Jb büyüktür 
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label 


Giriş kelimesi ile birlikte go ifadesinden sonra çalıştırılacak satırı belirtir. 
> label “loop 


op 
(output) Giriş nesnesinin, o anda mevcut prosedür'e göre çıkışını yapar. 
?op (result) 


repeat 


Giriş ifade listesinde belirtilen tekrar sayısını başlatır. 
?repeat 4 (fd 50 rt 90) 


run 


Girilen ifade listesini başlatır. 
?make “instr-list (fd 40 rt 90) 
?run:instr-list 


stop 


Kullanılan prosedürü durdurur ve TOPLEVEL”e veya prosedür çağırmaya gider 
(? çıkar). 
?stop 


wait 
Çalışan prosedürü giriş sayısında belirtilen zaman kadar bekletir. Bekleme zama- 
nı — girilen sayı * 1/60 saniye. 

?wait 200 


Özel Kullanımlar: 
catch 


Giriş ifade listesinin çalışması sırasında oluşan hata ve özel şartları yakalar. 
> catch “hata(* (Il 
> pr Iburadayım)| 
buradayım 
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error 


En sık hata yaratan elemanların listesini görüntüler. 
catch “hata (hatadan.itibaren.yap| 
show error 


* 


notrace 


Prosedür çalışmasında tarama görüntülemesini kapatır. (trace'e bakınız) 
?notrace 


* 


nowatch 


Bütün veya belirlenen prosedürlerde izleme görüntülemesini kapatır (watch'a 
bakınız). 
?nowatch 


pause 


Araya edit veya tercüme işlemini konması için programı işlevini durdurur. 
> if:size > 5 (pausel 


throw 


önceden catch ifadesiyle belirtilmiş giriş satırını çalıştırır. 
?throw “TOPLEVEL 


* 


trace 


Prosedür çalışmasında tarama görüntülemesini açar. 
?trace 


* 


watch 


Bütün veya belirlenen prosedürlerin izleme görüntülemesini açar. 
?watch 
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Sistem İlkeleri: 


.contents 
Dr.LOGO sembol boşluğunun içerdiklerini gösterir. 


.deposit 


İkinci girilen sayıyı, birinci girilen sayı tarafından belirtilen yerdeki mutlak hafı- 
zaya yerleştirir. 


.examine 


Belirtilen yerdeki mutlak hafızayı gösterir. 


in 
Girişi belirlenmiş kapıdaki aktif değerleri tekrar dener. 
* 


.Out 


Giriş değerini, giriş belirlenmiş kapıya gönderir. 


Sistem Değişkenleri: 


ERRACT 
TRUE ise bir ara yaratır, bariz hatada TOPLEVEL'e döner. 


FALSE 


Sistem değişkeni 


REDEFP 


TRUE ise ilkellerin tekrar belirlenmesine döner. 


TOPLEVEL 


throw “TOPLEVEL bütün belirlenmiş prosedürlerden çıkar. 
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TRUE 


Sistem değişkeni 


Sistem Desteklemeleri: 
.APV 


Destekleme değerine bağlıdır; global değişkenlerin değeridir. 


.DEF 


Prosedürün tanımlamasıdır. 


* 


.ENL 


Bir “carriage return” veya boşluk ile kırılmış prosedür satırının sonudur. 


* 
.EMT 


Bir ““carriage return” veya boşluk ile kırılmış prosedür satırının başlangıcıdır. 


.PRM 


İlkel belirtir. 
* 


.REM (0r;) 


Uyarı veya yorumlar. 


272 


KONU 7 
Bilginiz Için 


Bu derste bu bilgisayarı kullanmayı öğrenirken ihtiyacınız olan birçok başvuru bil- 
gileri içerir. 

Konular 

* Kursör yerleri ve kontrol kod uzantıları 

* Kesintiler (interrupt) 

* ASCII ve grafik karakterler 

* Tuş referansları 

* Ses 

* Hata mesajları 

* BASIC anahtar kelimeler 

* Plancılar 

* Bağlantılar 

* Yazıcı 

* Oyun çubuğu 

* Disk organizasyonu 

* Yerleşmiş sistem uzantıları (RSX) 

* Bellek 

* CP/M Plus terminal benzeticisi (emülatör) 
* CP/M Plus karakter seti 


Bölüm 1: BASIC Kursör Yerleri ve Kontrol 
Kod Uzantıları 


Değişik uygulama programlarında metin kursörüne hali hazırdaki pencerenin dı- 
şında bir yer verilebilinir. Değişik operasyonlar gerçekleşmeden önce kursörü ge- 
çerli bir pozisyona zorlar; bunlar şöyledir: 


I. Karakter yazarken 


2. Kursör kabarığı çizerken 


3. Listenin başındaki yıldız ile işaretli kontrol kodlarına uyarken. 
Kursörün geçerli bir pozisyona zorlamak için yöntem şöyledir: 


I. Eğer kursör sağ kenarın sağında ise bir sonraki alt satırın en sol kolonuna ha- 
reket ettirilir. 


2. Eğer kursör sol kenarın solunda ise bir üst satırın en sağ kolonuna götürülür. 


3. Eğer kursör üst kenarın üstünde ise pencere bir satır aşağıya yuvarlanır ve kur- 
sör pencerenin üst satırına ayarlanır. 


4. Eğer kursör alt kenarın altında ise pencere bir satır üste yuvarlanır ve kursör 
pencerenin alt satırına ayarlanır. 


Testler ve operasyonlar verilen kaide içinde yapılır. Uygunsuz kursör pozisyonları 
pencerenin alt veya solunun dışında sıfır veya negatif. olabilir. 


Yazı ekranına gönderilen 9 ile 31 arasındaki karakter değerleri ekranda karakter 
üretmez fakat kontol kodları olarak tercüme edilir. (tedbirsizce uygulanmamalı- 
dır) Bazı kodlar, kod parametreleri olan bazı karakterlerin anlamını değiştirir. 


Grafik ekrana gönderilen kontrol kodu ancak fonksiyonu ile ilgili sembolleri eğer 
tuştakımından girilmişse yazar. (örneğin: &OR “BEL” -(CTRL)2) Eğer komut for- 
mundan adreslerse kontrol fonksiyonunu işletir. 


PRINT CHR$ (&07), veya PRINT “ ”( sembolü PRINT cümlesinde (CTRL) 
G'ye basarak elde edilir.) 


Yıldız * işareti ile işaretlenmiş kodlar uygulanmadan önce kursörü şimdiki pence- 


renin nizami bir pozisyonuna zorlar fakat kursörü gayri nizami bir pozisyonda bı- 
rakabilir. 
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BASIC Kontrol Karakterleri 


Değeri Adı 
& 000 NUL 


& 01 1SOH 


& 022 STX 


& 033 ETX 


& 04 4 FOT 


& 05 5 ENO 


& 06 6 ACK 


& 07 7 BEL 
& 08 8 *BS 
& 09 9 *TAB 
& OA 10 *LF 
& OBL1I *VT 


& OCI2Z FF 


Parametre 


0-255 


Anlamı 
Etkisi yok ihmal edildi 


Parametre değeri tarafından verilen 
sembolü yaz. Bu 0 ile 31 arası sembol- 
lerin görüntülenmesine izin verir. 


Yazı kursörünü kapat kullanıcı anah- 
tar parametre değeri 0 olan CURSOR 
komutuna eşdeğerdir. 


Yazı kursörünü aç. Kullanıcı anahtar 
parametre değeri I olan CURSOR ko- 
mutuna eşdeğerdir. 


Ekran modunu ayarlar. MOD4'den 
parametre alınır. MODE komutuna eş- 
değerdir. 


Parametre karakterini grafik kursöre 
gönderir. 


Yazı ekranına imkan verir (&15 NAK?a 
bakınız) 


B'p sesi. Bu, ses dizilerini çaktırır. 
Kursörü bir karakter geri götürür. 
Kursörü bir karakter ileri götürür. 
Kursörü bir satır aşağıya indirir. 
Kursörü bir satır yukarı çıkarır. 
Metin penceresini temizler ve kursörün 


sol üst köşeye götürür. CLS komutu- 
nun eşdeğeridir. 
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Değeri Adı 
& OD 13 *CR 


& OE 14SO 


&OFISSI 


& 10 16 *DLE 


& 11 17 *DCI 


& 12 18 *DC2 


& 13 FG *DC3 


& 14 20 *DCA4 


& 1521 NAK 


& 16 22 SYN 
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Parametre 


0-15 


0-15 


Anlamı 


Kursörü pencerenin sol kenarında ha- 
li hazırda kullanılan satırın üzerine 
götürür. 


Sayfa ink'ini ayarlar. MOD 16'dan pa- 
rametre alınır. PAPER komutunun eş- 
değeridir. 


Pen ink'ini ayarlar. MOD 16'dan pa- 
rametre alınır. PEN komutunun eşde- 
geridir. 


Hali hazırdaki karakteri siler. Karak- 
ter hücresini sayfa ink'i ile doldurur. 


Pencerenin sol kenarından hali hazır- 
daki karakter dahil temizler. Bütün iş- 
lem yapılan karakter hücrelerini sayfa 
ink”i ile doldurur. 


Hali hazırdaki karakter pozisyonu da- 
hil pencerenin sağ kenarına kadar te- 
mizler. Etkilenen karakter hücrelerini 
sayfa ink'i ile doldurur. 


Pencerinin başlangıcından karakter ye- 
ri dahil siler 


Hali hazırdaki karakter pozisyonu da- 
hil pencerenin sonuna kadar temizler. 
Etkilenen hücreleri sayfa ink'i ile 
doldurur. 


Metin ekranını kapatır. Ekran ACK (& 
06 6) gönderilinceye kadar, herhangi 
bir şeye tepki göstermez. 


MOD 2 parametresi. Transperant (şef- 
faf) seçeneği. O disables, 1 enasles. 


Değeri Adı 
& 17 23 ETB 


& 1824 CAN 


& 1925 EM 


& lA 26 SUB 


& 1B 27 ESC 


& IC 28 FS 


& ID 29 GS 


& IE 30 RS 


Parametre 
0-3 


0-255 
0-255 
0-255 
0-255 
0-255 
0-255 
0-255 
0-255 
0-255 


1-80 
1-80 
1-25 
1-25 


0-15 
0-31 
0-31 


0-31 
0-31 


Anlamı 


MOD 4 parametresi. O normal grafik 
ink moduna, I XOR grafik ink modu- 
na, 2 AND grafik ink moduna, 3 OR 
grafik ink moduna ayarlar. 


Pen ve sayfa inklerini değiştirir. 


Kullanıcı tanımlanabilir. Karakter için 
matris ayarlar. SYMBOL komutuna 
eşdeğerdir. 9 parametre alır, ilk para- 
metre hangi karakterin matrisi ayarla- 
nacaksa onu belirler. Diğer 8”i matrisi 
belirler. İlk bayt'ın anlamlı biti karak- 
ter hücresinin üst Sol pixeli, son 
baytın en az anlamlı biti karakter 
hücresinin alt sağ pixelidir. 


Pencere ayarlar. WINDOW komutu- 
nun eşdeğeridir. İlk 2 parametre pen- 
cerenin sağ ve sol kenarlarıdır. Küçük 
değer sol, büyük değer sağ kenardır. 
Son 2 parametre de küçük değer üst, 
büyük değer alt kenar kenardır. 


Etkisi yok ihmal edildi. 


Ink'i bir renk çiftine ayarlar. INK ko- 
mutunun eşdeğeridir. İlk parametre 
(MOD 16) ink'i belirtir, diğer ikisi 
(MOD 32) gereken renklerdir. (27*den 
3Ve kadar olan parametre değerleri ta- 
nımlanmamış renklerdir) 


Çerçeveyi bir renk çiftine ayarlar. 
BORDER komutu ile aynıdır. Para- 
metreler (MOD 32) iki rengi belirler. 
(27'den 31'e kadar olan parametre de- 
gerleri tanımlanmamış renklerdir.) 


Kursörü pencerenin en sol köşesine 
götürür. 
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&IF31I US Kursörü hali hazırdaki pencerenin için- 


de verilen bir pozisyona götürür. LO- 
CATE ile aynıdır. 1. parametre kolo- 
nu, 2. parametre satırı belirler. 


6128'in işletilmesi, karmaşık, gerçek zaman çalışma sistemi tarafından önceden ha- 
zırlanmıştır. Çalışma sistemi bilgisayardaki giriş ve çıkış trafiğini yönetir. 


Öncelikle donanım ve BASIC çeviricisi arasında bağlantı kurulur, (örneğin; ink 
çakma (flashing) fonksiyonu ki BASIC parametreleri geçirir) ve çalışma sistemi 
iş ile birlikte çalışır. Bir kısmı gerekeni hesaplarken diğer kısmı bu olayların zama- 
nını hesaplar. 


Makine çalışma sistemi genellikle ““firmware” olarak nitelendirilebilir ve BASICdeki 
yüksek seviye komutları tarafından çağrılan makine kodu dizileri ihtiva eder. 


Eğer siz makina bellek adresinde birşey araştırmayı tecrübe etmek isterseniz (PO- 
KE) veya altprogramları çağırmayı (CALL) denemelisiniz. Bunu yapmadan önce 
programlarınızı koruyun ve listeleyin yoksa pişman olursunuz. 6128'in geniş firm- 
ware çalışma sistemi SOFT G68'de tarif edilmiştir ve bu tanıtıcı kitabın gayesi dı- 
şında tutulmuştur. 


Geniş anlamda makina kodlarını kullanan bir program için assembler kullanmak 
gereklidir. DEVPAC assembler, Z80 editörü, disassembleri ve monitörü ile birlik- 
te tekrar yerleştirilebilir assembler içerir. 
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Bölüm 2: Kesintiler (İnterrupts) 


Bu kitapçığın daha evvelki konularında tarif edilmiş AFTER ve EVERY yapıları 
tarafından örneklenmiş bir kaç çoklu işlemlerini içeren çalışma sistemini kapsa- 
yan Z80 kesintilerinin geniş kullanımını 6128 yapar. Olay zamanlayıcılarının baş- 
ta gelenleri: 


Break ((ESC) ( ESC) 

Timer 3 

Timer 2 (ve 3 ses kanalı dizisi) 
Timer | 

Timer 0 


Aralar kesinti noktasındaki muhtemel orta değişken durumlarının neticesi ele alın- 
dıktan sonra ilave edilmelidir. Ara alt programının kendisi, ana programdaki de- 
ğişken durumları ile istenmeyen tesirlerini yok etmelidir. 


Ses dizileri, eşit öncelikli bağımsız aralıklara sahiptir. Birkez ses aralığı başladı- 
ğında herhangi bir diğer ses aralığı tarafından kesilmez. Bu başlatılmış ses aralığı 
dizileri yukarıda bahsedilmiş etkilerden muaf değişkenleri paylaşır. 


Ses dizilerinin kesintisine yol verilmişse (ON SO GOSUB kullanarak), eğer bu ka- 
nal için ses dizesi dolu değilse hemen keser, aksi takdirde ses sona erince keser ve 
dizede daha fazlası için yer vardır. Ara verme hareketi hadiseyi zayıflatır, böylece 
altprogram, eğer başka kesintiler gerekiyorsa............................................. 


.v...s.sssssssssssssssssssssssssssssssssssssssssssssssssesesssssssssssssssssssssssssssesessssssssssssssse 
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Bölüm 3: BASIC ASCII ve Grafik Karak- 
terleri 
ASCII 


Aşağıdaki tablo, uygun ASCII kodlarıyla birlikte ondalık sekizlik (octal), onaltı- 
lık (hex) notasyonlarını kullanan ASCII referans karakter setini vermektedir. 


DEC OCTAL HEX ASCII characters OCTAL HEX ASCII 


NUL ((CTRLJa) 32 144 
001 SOH ((CTRLJA) 33 145 

STX ((CTRLIB) 34 146 

ETK ((CTALIC) 35 147 

EOT ((CTRLID) 36 

ENO ((CTRLJE) 37 

ACK ((CTRLIF) 

BEL ((CTRLJG) 

BS ((CTRLJH) 

AT ((CTRLII) 

LF (CTRL) 

VT (İCTRUK) 

FF ((CTRLİL) 

CR ((CTRLIM) 

SO ((CTRLİN) 

SI ((CTRLJO) 

DLE ((CTALIP) 

DC1 ((CTRLJO) 

DC? ((CTRLIR) 

DC3 ((CTRLIS) 

DC4 ((CTRLİT) 

NAK ((CTRLJU) 

SYN ((CTRLM 

ETB (CTRL) 

CAN (CTRL) 

EM ((CTRLIY) 

SUB ((CTRLIZ) 


ODEA DMBEN—AO 
OO NAY RL 


v———N< XESCAWıDTOSJIrK JO ADO 


m m 


; 
< 
> 
z 
e 
A 
B 
c 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
0 
P 
a 
R 
S 
T 
U 
V 
wi 
X 
Y 
Z 
C 
N 
1 
t 


-—Eo—: 
o» 
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Makinaya Özel BASIC Grafik Karakter Seti 


Burada üretilen karakterler, 6128'in ekranına yaz- 
makta kullanılan 8 x 8 hücre marisinin üzerine çizil- 
miştir. 


33 
&H21 &H23 
&X00100001 &X00100010 &X00100011 
| | 
37 38 
&H25 &H26 &H27 
&X00100101 &X00100110 &X00100111 
iz 
B 
41 
&H29 &H2A 
&X00101001 &X00101010 


&H2E &H2F 
&X00101101 &X00101110 &X00101111 


32 &H20 
&X00100000 


36 
&H24 
&X00100100 


40 
&H28 
&X00101000 


&H2C 


48 
&H30 
&X00110000 
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49 


&H31 
&X00110001 

m 

El 

u 

53 
&H35 
&X00110101 


&H39 
&X00111001 


e 
SESESESN 
SESESEEE 
61 
&H3D 
&X00111101 


50 
&H32 


&X00110010 


54 
&H36 


&X00110110 


&X00111010 


62 
&H3E 
&X00111110 


AR 


66 
&H42 
&X01000010 


51 
&H33 
&X00110011 


55 
&H37 
&X00110111 


&H3B 
&X00111011 


iz 
&H3F 
&X00111111 


a 
le 
67 

&H43 
&X01000011 


&H34 
&X00110100 


&H38 
&X00111000 


60 
&H3C 
&X00111100 


&H44 
&X01000100 


&H45 
&X01000101 


73 
&H49 
&X01001001 


&H4D 


81 
&H51 
&X01010001 


&H55 
&X01010101 


70 
&H46 
&X01000110 


&H4E 


&H52 
&X01010010 


86 
&H56 
&X01010110 


71 
&H47 &H48 
&X01000111 &X01001000 


76 
&H4B &H4C 
&X01001011 &X01001100 


79 
&H4F &HS5O 
&X01001111 &X01010000 

iz 

m 

83 84 
&H53 &H54 
&X01010011 &X01010100 


88 
&H57 &H58 
&X01010111 &X01011000 
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284 


&H59 
&X01011001 


93 
&HSD 
&X01011101 


nan 


97 
&H61 
&X01100001 


105 
&H69 
&X01101001 


90 


&H5A 
&X01011010 


98 
&H62 
&X01100010 


102 
&H66 
&X01100110 


&HGA 
&X01101010 


91 
&H5B 
&X01011011 


&HSF 


103 
&H67 
&X01100111 


107 
&H6B 
&X01101011 


92 
&H5C 
&X01011100 


100 
&H64 
&X01100100 


&H68 
&X01101000 


&H6C 
&X01101100 


109 
&H6D 
&X01101101 


113 
&H71 
&X01110001 


117 
&H75 
&X01110101 


121 
&H79 
&X01111001 


125 
&H7D 
&X01111101 


114 
&H72 
&X01110010 


&H76 


&H7A 


&H7E 
&X01111110 


112 
&H70 
&X01110000 


115 
&H73 
&X01110011 


119 
&H77 
&X01110111 


123 
&H7B 
&X01111017 


Pa 


127 
&H7F 
&X01111111 


116 
&H74 
&X01110100 


&H78 


124 
&H7C 
&X01111100 
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129 
&H81 
&X10000001 


141 
&H8D 
&X10001101 


&X10010001 


131 


&H82 &H83 


&X10000011 


138 139, 
&HBA &H8B 
&X10001010 &X10001011 


&H8E &H8F 
&X10001111 


147 
&H92 &H93 
&X10010010 &X10010011 


132 
&H84 


&H88 
&X10001000 


140 
&H8C 
&X10001100 


&H9O 


148 
&H94 
&X10010100 


149 
&H95 
&X10010101 


153 
&H99 
&X10011001 


&X10010110 


EENEEEEE 
HEEEEEEN 
1 GG EE GE 
154 

&H9A 
&X10011010 


157 
&H9D 


&HA5 
&X10100101 


&HA6 
&X10100110 


151 
&H97 
&X10010111 


155 
&H9B 
&X10011011 


159 
&H9F 
&X10011111 


Fa 


163 
&HA3 
&X10100011 


&X10100111 


&H9C 
&X10011100 


Lİ ns 
HD e EN 
164 


&HA4 
&X10100100 


&X10101000 
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288 


169 
&HA9Ş 
&X10101001 


&HAD 
&X10101101 


177 
&HB1 
&X10110001 


181 
&HB5 
&X10110101 


m 
LL 
185 


&HB9 
&X10111001 


&HAE 


178 
&HB2 
&X10110010 


Pi 


182 
&HB6 
&X10110110 


nara 


186 
&HBA 
&X10111010 


171 
&HAB 
&X10101011 


175 
&HAF 


179 
&HB3 
&X10110011 


&HB7 


&HBB 
&X10111011 


&HAC 


m 
EEEEEEEE 
176 


&HBO 
&X10110000 


184 
&HB8 
&X10111000 


ir 


188 
&HBC 
&X10111100 


189 
&HBD 
&X10111101 


&X11000001 


197 
&HC5 
&X11000101 


&HC9 
&X11001001 
(| 

m 
205 
&HCD 
&X11001101 


190 
&HBE 
&X10111110 


&HC2 


198 
&HC6 


202 
&HCA 
&X11001010 


&HCE 
&X11001110 


191 
&HBF 
&X10111111 


&X11000011 


Fa 


199 
&HC7 
&X11000111 


203 
&HCB 
&X11001011 


yi 


207 
&HCF 
&X11001111 


196 
&HC4 


&HCC 


&X11010000 


289 


290 


209 
&HD1 
&X11010001 


213 
&HDS 


&HD9 
&X11011001 


221 
&HDD 
&X11011101 


&X11100001 


210 
&HD2 &HD4 
&X11010010 &X11010100 
216 
&HD7 &HD8 
&X11010111 &X11011000 
218 219 220 
&HDA &HDB &HDC 
&X11011010 &X11011011 &X11011100 


222 
&HDE &HDF 
&X11011110 &X11011111 


226 227 228 
&HE2 &HE3 &HE4 
&X11100010 &X11100011 &X11100100 


229 
&HE5 
&X11100101 


233 
&HE9 
&X11101001 


237 
&HED 
&X11101101 


241 
&HF1 
&X11110001 


245 
&HF5 
&X11110101 


234 
&HEA 
&X11101010 


238 
&HEE 
&X11101110 


242 
&HF2 
&X11110010 


246 
&HF6 
&X11110110 


231 
&HE7 
&X11100111 


235 
&HEB 
&X11101011 


239 
&HEF 
&X11101111 


243 
&HF3 
&X11110011 


247 
&HF7 
&X11110111 


232 
&HE8 
&X11101000 


&HEC 


240 
&HFO 
&X11110000 


244 
&HF4 
&X11110100 


248 
&HF8 
&X11111000 
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249 250 251 
&HF9 &HFA &HFB 
&X11111001 &X11111010 &X11111011 &X11111100 


255 
&HFD &HFE &HFF 
&X11111101 &X11111110 &X11111111 
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Bölüm 4: Tuş Referansları 
Önceden Belirlenmiş ASCII Değerleri (HEX) 


JE 7E 
Ez ilekelelekelelek PARE YEAR 
32 35 İl 36 | 37 39 
ET nl 7 214 19 HM OF ij pH 
b) 7 İİ 77 72 (74 yl | pl 
YELE 


wiğgl #0 | ÇRİRİRİ 


O Şİ 04 Hi HM Hi Hi 
NA Bi Hi GE Hi pi 
66 3B 
IE 
Hi 58 3E 
b İKİ ENNE Ak İFA ÜEAEMEM 


JYOYSTICK O JOYSTICK1 
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GENİŞLETİLMİŞ KARAKTERLER, TESPİT 
EDİLMİŞ YERLERİ VE DEĞERLERİ 
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ruuuın 


i | Kİ 
va fa İva) İN/A alma | NA va) va) N/A na | va İva (na N/A Rİ 


N/A 


| N/A in İva N/A 


va N/A va Di a İva rin iz 


DEFAULT SETTİNG 
GHARACTER | ASCIVMUE 


EXPANSION 
CHARACTER 


0(128) 
1(129) 
2(130) 
3(131) 
4(132) 
5(133) 
6(134) 
7(135) 
8(136) 
9(137) 
10(138) 
11(139) 
12(140) 


:. DONU RUM SE 


(RETURNJ 
RUN"'JRETURNJ | &52 &55 &4E &22&00) 


Note: Expansi«. o“:aracters 13t031 (141 to 159) have z.nul! 
value by defav o ihey have values assigned usinçı the 
BASIC command KE Y, and are assigned to keys using the 
commandkKEY DEF. 


e e 


TUŞ VE OYUN ÇUBUĞU NUMARALARI 


TANAL UYU ULUUUULUUUULULUUU ULA 


|sjesJecfs fsefsofsaf a fsojsojszfzefzsfefzfefrfe| 
hee felsofsolsofsisafoağasfeeğz zel e (zl efe) 
| e Jeejeofojsa|sağasles/aJasfzohf e) Çolels) 
| Çolejefeofsejas)sfsofafsojzj z frjofzi 
e li EE 


YOYSTICK O JOYSTICK 1 


ii 
FIRE 2 || FIRE1 
52 53 


FIRE 2/| FIRE 1 
74 76 77 75 
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Bölüm 5: Ses 
Notalar ve ton periodları 


Aşağıdaki tablo her zamanki ıslah edilmiş ölçülerdeki arzu edilen ton periodların- 
daki notaları sekiz oktav içinde verir. 


Üretilen frekans, tam olarak gerekli frekans değildir çünkü (ton periodu) ayarları 
tam sayı olmalıdır. Göresel hata, gereken ve olan frekans farkının yüzde oranıdır. 


NOTE O FREGUENCY PERIOD RELATIVE ERROR 


C 16.352 3822 -0.007X 
C# 17.324 3608 *0.0077 
D 18.354 3495 -0.0074 
D# 19.445 3214 -0.004X 
E 20.602 3934 /0.0094 
F 21.827 2863 -90.016X Octave -4 
F# 23.125 2703 *0.0097 
G 24.590 2557 -0.0024 
G# 25.957 2408 *0.0054 
A 27,500 2273 *0.0124 
AH 291135 2145 -0.0084 
B 30.868 2025 :0.011 


NOTE O FREGUENCY PERIOD RELATIVE ERROR 


32.703 1911 -0.0077 
34.648 1804 *t0.0077 
36.708 1703 t0.0227 
38.891 1607 -0.0047 
41.203 1517 *0.0097 
43.654 1432 *0.0197 Octave -3 
46.249 1351 -0.0287 
48.999 1276 *t0.0377 
51.913 1204 10.005 
55.000 1136 -0.0327 
58.270 1973 t0.0394 
61.735 1012 -0.0387 
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FREGUENCY PERIOD RELATIVE ERROR 


406 956 10.046 

296 992 *0.007X 

416 851 9374 

782 804 0584 

407 758 .057X Ğ 
2397 716 0194 ctave -2 
499 676 0464 

999 638 937X 

826 602 005” 

000 568 9324 

2541 536 29554 

2471 506 0384 


FREGUENCY PERIOD RELATIVE ERROR 


130.813 478 .0464 
138.591 451 .0074 
146.832 426 .0814 
155.564 4ğ2 .0584 
164.814 379 .0574 


174.614 358 0194 Octave -1 
184.997 338 946X 
195.998 319 .937X 
207.652 391 005” 
220.000 284 .932X 
233.082 268 955 
246.942 253 .038X 


FREGUENCY PERIOD RELATIVE ERROR 


261.626 239 .0467 Middle C 
277.183 225 .2154 

293.665 213 .0814 

311.127 201 .0587 

329.628 199 .2064 

349.228 179 .0194 Octave 0 
369.994 169 .0467 

391.995 159 dd * 

415.305 15ğ .3287 

440.000 142 .032X İnternational A 
466.164 134 .0557 

493.883 127 .3567 
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NOTE (FREGUENCY PERIOD RELATIVE ERROR 


Ç 523.251 -0.374X 
(4 554.365 19.229X 
D 587.330 -0.390X 
D4 o 622.254 -0.441X 
E 659.255 *0.206X 
F 698.457 -0.5437 Octave 1 
FA 739.989 -0.5487 
783.991 *0.3504 
830.609 -0.328 
see ai 
932.32 2. , 
987.767 9.4357 


FREOUENCY RELATIVE ERROR 


1046.592 
1108.73 

1174.659 

1244.508 

1318.318 

1396.913 i 
1479.978 N Octave 2 
1567.982 

1661.219 

1760.000 

1864.655 

1975.533 


FREGUENCY RELATIVE ERROR 


2093.004 *0.4627 
2217.461 -0.6624 
2349.318 *1.4697 
2489.016 -0.4417 
2637.021 Wi 
2793.826 -1. / 
2959.955 -0.548X Octave3 
3135.963 *0.3504 
3322.438 *0.992 
3520.000 *11.357X 
3729.310 41.417X 
3951.066 *1.134X 


Üstteki rakkamlar şu şekilde hesaplanmıştır: 


FREGUENCY -440x(27(OCTAVEt((N-10)/12))) 
PERI0D -<ROUND(62500/FREGUENCY) 


N harfiCiçinl,C # için2,D için 3 v.s. 
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Bölüm 6: BASIC Hata Mesajları 


1 Unexpected NEXT 


Bir NEXT komutuna bir FOR döngüsü dışında rastlanmışsa veya NEXt komu- 
tundaki kontrol değişkeni FOR”'dakiyle uyuşmuyorsa. 


2 Syntax Error 

Basic verilen satırı anlamamış çünkü yapısı geçerli değil. 

3 Unexpected RETURN 

Alt programda olmayan bir RETURN komutuna rastlanmış. 

4 DATA exhausted 

Son DATA'dan sonrasını okumaya kalkan bir READ komutu. 
5 Improper argument 


Bu genel bir hatadır. Fonksiyonun arguman değeri veya komut parametresi her- 
hangi bir şekilde geçersizdir. 


6 Overflow 


Bir aritmetik işlemin sonucu taşmış. Bu floating point taşması olabilir ki bazı ope- 
rasyonlarda 1.7E'38*den daha büyük değer çıkabilir. Değişik olarak bu floating 
point sayının 16 bitlik işaretli tam sayıya çevirirken hatalı sonuç olabilir. 


7 Memory full 


Çalıştırılacak program veya değişkenlerin çok büyük olması veya bir hafıza emri 
eğer BASIC'ın hafızasını çok fazla alçak yada olanaksız derecede yüksek değere 
ayarlanmaya girişilmişse bu hatayı verir. Unutmayın ki açık bir dosyanın ona ay- 
rılmış bir buffer'ı (tamponu) vardır ve buda belleğin kullanılacağı değerleri kısıt- 
lar 


8 Line does not exit 


Referans verilen satır bulunamıyor. 
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9 Subscript out of range 

Bir matris referansında elemanlarından biri çok küçük veya çok büyük. 
10 Array alraedy dimansioned 

DIM bildiriminde matrislerden biri daha önceden belirtilmemiş 

11 Division by zero 


Bu gerçek bölmede, tam sayı bölmesinde, tam sayı yada üsleme işlemlerinde olur. 
0 ile bölme bu sonucu verir. 


12 Invalid direct command 
Son yapılan emir girişi direkt modda geçersizdir. 
13 Type mismatch 


Karakter değeri gereken yere numerik bir değer verilmiştir veya tam tersi veya ge- 
çersiz bir şekilde oluşturulmuş sayı READ veya INPUT'da bulunmuştur. 


14 String space full 

Hafızada başka yer kalmayacak kadar karakter dizileri üretilmiş. 

15 String too long 

Dizi 255 karakter uzunluğunu aşmış. Birkaç dizi eklenerek üretilmiş olabilir. 


16 String expression to complex 


Bir karakter dizi ifadesi birkaç ara karakter dizi değerleri üretebilir. Bu değerlerin 
sayısı mantıklı bir limiti aşarsa bu hata ile sonuçlanır. 


17 Cannot CONTiune 


Bir sebepten dolayı son program CONT kullanılarak yeniden başlatılamaz. Unut- 
yanı ki CONT, STOP komutundan sonra yeniden başlatmak içindir, (ESC) (ESC) 
veya bir hata ve programdaki her hangi bir değişiklik yeniden başlatmayı imkan- 
sız yapar. 
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18 Unknown user function 
Yeni istenen FN için DEF FN işletilmemiştir. 
19 RESUME missing 


Hata işleme modundayken programın sonuyla karşılaşmıştır. (örneğin: ON ER- 
ROR GOTO sırasında) 


20 Unexpected RESUME 


RESUME sadece hata işlemi modunda geçerlidir. (yani ON ERROR GOTO sıra- 
sında) 


21 Direct command found 

Bir dosya yüklenirken satır numarası olmayan bir satır bulunmuştur. 

22 Operand missing 

BASIC tamamlanmamış bir ifadeyle karşılaşmıştır. 

23 Line too long 

BASIC iç formuna çevrilince çok büyük olan bir satır. 

24 EOF met 

Giriş kanalındaki bir dosyanın geçmiş sonunu okuma girişiminde bulunmuştur. 

25 File type error 

Okunan dosya uygun bir tipte değildir. OPENIN sadece ASCII yazı dosyalarını 
açmaya hazırlanmıştır. Aynı şekilde LOAD, RUN, vs. sadece SAVE tarafından 
üretilen kütük tipleriyle uğraşmak için hazırlanmıştır. 


26 NEXT missing 


FOR komutuna uyan bir NEXT bulunamamıştır. Bu mesajdaki satır numarası bu 
hatanın olduğu FOR komutunu bildirir. 
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27 File already open 


Bir önce açılan dosya kapatılmadan OPENIN veya OPENOUT komutu uygulan- 
Mış. 


28 Unknown command 


Basic dışarıdan bir emre alıcı bulamıyor, örneğin baş tarafında çubuk işareti ““1” 
olan bir komut. 


29 WEND missing 
WHİLE komutuna uygun bir WEND bulunamış. 
30 Unexpected WEND 


WHILE döngüsünde olmayan bir WEND ile karşılaşıldı veya WEND son WHI- 
LE döngüsüne uymuyor. 


31 File not open 


(disk hataları adlı bölüme bakın.) 


32 Broken in 


(disk hataları adlı bölüme bakın). 


AMSDOS Disk Hataları 


Dosyalama operasyonlarının yürütülmesi sırasında birkaç hata görülebilir. Bu şe- 
kildeki bütün hatalar BASIC 32 hata numarası olarak ele alınır, bununla beraber 
çok özel bilgiler bu hata numarası gözlendiğinde DERR fonksiyonu tarafından geri 
döndürülür. Bu geri dönüş değerleri şöyledir: 
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AMSDOS hatası DERR değeri Hata sebebi 

0 veya 22 (ESC) tuşuna basılmış 

142(128 #14) Akış uygun bir durumda değil. 

143(128 #15) Dosya için ayrılan yerin sonuna gelinmiş. 
Miş. 

144(128 * 16) Genellikle yanlış bir dosya adı olan kö- 
tü komut. 


0 
14 
15 


145(128 #17) Daha önce mevcut bir kütük. 
146(128 #18) Dosya mevcut değil. 

147(128 4-19) Rehber dolu. 

148(128 420) Disk dolu. 

149(128 -21) Dosyalar açıkken disk değiştirilmiş. 
150(128 4 22) Dosya yalnız oku dur. 

145(128 * 26) Dosya için ayrılan yerin sonuna gelinmiş. 


Eğer AMSDOS bir hata rapor etmişse bit 7 ayarlanırken DERR değeri 128 tara- 
fından ofsett yapılır. DERR tarafından gönderilen diğer değerler disk kontrolcu- 
su tarafından çıkartılır ve bit anlamlıdır, daima bit 6 ayarlanır. Bit 7 hatanın 
AMSDOS tarafından rapor edilip edilmediğini belirtir. Her bitin anlamı şöyledir. 


.... 
— 


AU PLM —OY 


- 


Anlamı 

Adres işareti yok. 

Yazılmaz-Disk yazı korumalı. 

Data yok-bölge bulunamadı. 

Sürücü hazır değil-sürücüde disk yok. 


Üst üste işletme hatası. 

Data hatası-CRC hatası 

Disk kontrolcusu tarafından, datayı bildirmek için daima 1'e 
ayarlanır. 

AMSDOS tarafından hata halihazırda rapor edilmemiş. 
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Eğer dosya açılmamışken girişe teşebbüs edilirse ERR 31'e döner. ERR ve DERR 
kullanılırken uygulanan yol ERR'”ın değerinin 31 veya 32 olduğun inceleyen kısa 
program çağıran bir ON ERROR GOTO ilave etmektir. Eğer 32 ise hatanın cinsi 
hakkında bilgi edinmek için DERR sorguya çekilir. örneğin: 


1g ON ERROR GOTO 1400 

20 OPENOUT “myfile.acs” 

30 WRITE #9, “test-data” 

40 CLOSEOUT 

50 END 

1949 amsdoserr — (DERR AND.&7F):REM mask of bit 7 

1919 IF ERR<31 THEN END 

1920 IF ERR—31 THEN PRINT “20.satırı doğru yazdığınıza emin misiniz?.” 
END 

1939 IF amsdoserr — 20 THEN PRINT” disk doludur, öneri yeni bir data diski 
kullanın”:END 

1940 IF amsdoserr — & x 01001000 THEN PRINT” diski sürücüye koyun ve bir 
tuşa basın”:'WHILE INKEY$ — “ "WEND:RESUME 

1950 END i 


Bölüm 7: BASIC Komutları 


Aşağıdakiler AMSTRAD CPC6128 BASIC komutlarının listesidir. Bunlar ayrıl- 
mıştır ve değişken adı olarak kullanılmazlar. 


ABS, AFTER, AND, ASC, ATN, AUTO 
BIN$, BORDER 


CALL, CAT, CHAİN, CHR$, CINT, CLEAR, CLG, CLOSEIN, CLOSEOUT, CLS, CONT, 
COPYCHR$, COS, CREAL, CURSOR 


DATA, DEC$, DEF, DEFINT, DEFREAL, DEFSTR, DEG, DELETE, DERR, DI, DIM, 
DRAW, DRAWR 


EDIT, El, ELSE, END, ENT, ENW, EOF, ERASE, ERL, ERR, ERROR, EVERY, EXP 
FILL, FIX, FN, FOR, FRAME, FRE 


GOSUB, GOTO, GRAPHICS 
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HEX$, HIMEM 

IF, INK, INKEY, INKEYŞ, INP, INPUT, INSTR, INT 

JOY 

KEY 

LEFT$, LEN, LET, LINE, LİST, LOAD, LOCATE, LOG, LOG10, LOWER$ 
MASK, MAX, MEMORY, MERGE, MFD$, MIN, MOD, MODE, MOVE, MOVER 
NEXT, NEW, NOT 


ON, ON BREAK, ON ERROR GOTO O, ON SO, OPENİN, OPENOUT, OR, ORIGIN, 
OUT 


PAPER, PEEK, PEN, Pl, PLOT, PLOTR, POKE, POS, PRINT 


RAD, RANDOMİZE, READ, RELEASE, REM, REMAIN, RENUM, RESTORE, RESU- 
ME, RETURN, RIGHT$, RND, ROUND, RUN 


SAVE, SGN, SIN, SOUND, SPACEŞ, SPC, SPEED, SO, SOR, STEP, STOP, STR$, 
STRING$, SWAP, SYMBOL 


TAB, TAG, TAGOFF, TAN, TEST, TESTR, THEN, TIME, TO, TROFF, TRON 
UNT, UPPERŞ, USING 

VAL, VPOS 

WAIT, WEND, WHILE, WIDTH, WINDOW, WRITE 
XOR, XPOS 

YPOS 


ZONE 
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Bölüm 8: Planlar 
Metin ve Pencere Planı -MODE 0 (20 Kolon) 


GGMERSE EKA Ap ği 


2 
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Metin ve Pencere Planı - MODE 1 (40 Kolon) 


$ 
# 
# 
6 
# 
# 
3 
a 
Lİ 
5 
# 
a 
a 
A 
8 
8 
Lİ 
a 
bi 
a 
R 
2 
e 
g 


8s 16 1 18 


0 11 12 13 14 
8 9 © 1 12 13 4 15 16 
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MODE 2 (80 Kolon) 


Metin ve Pencere Planı - 


no es s6. Ss 6» ”»”n > ex r. ze z x — Z 8 


"ser. ze z Z mz az 8 


* m zı 


. m zo 8 9; » z 
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Ses Envelopu / Müzik am 


Bölüm 9: Bağlantılar 
CPC6128 Giriş / Çıkış Soketleri 


TAPESOCKET | STEREOSOCKET 


JOYSTICK SOCKET 


Oyun Çubuğu Soketi 


Arkadan bakış 


PIN 6 FRE 2 


PIN 4 RIGHT PIN 9 COM 2 
PIN 5 SPARE 
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Monitör Soketi 


Arkadan bakış 


o 
o 


o 
o 


Stereo Soketi 


RIGHT 

| A şii 
| 
GND LEFT 


PIN 1LEFT CHANNEL 


PINZRIGHT CHANNEL 
PIN3GND 


Teyp Soketi 


Arkadan bakış 


PIN 1 REMOTE SWITCH PIN4DATAIN 
PINZGND PINSDATAOUT 
PIN3 REMOTE SWİTCH 
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Genişleme Soketi 
Arkadan bakış 


49 47 45 43 41 39 37 35 33 31 9 27 25 23 21 19 17 15 13 11 9 7 5 3 | 


so 48 46 44 42 40 38 36 34 32 30 8 2 2 22 20 18 16 14 12 10 8 6 4 2 


2. Disk Sürücüsü Soketi 


Arkadan bakış 


2 4 6 8 © 12 14 16 18 20 22 24 26 28 30 32 34 


13 5 7 91 13 15 17 19 2 23 25 27 29 31 ş33 


READY GND 

GND MOTORON 
SIDE 1 SELECT GND 

GND N/C 

READ DATA GND 

GND DRIVE SELECT 1 
WRITE PROTECT GND 

GND N/C 
TRACKO GND 

GND INDEX 
WRITE GATE 

GND 

WRITE DATA 

GND 

STEP 

GND 

DIRECTION SELECT 
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Yazıcı Soketi 


Arkadan bakış 


7 16 15 14 13 12 1 10 9 8 7 6 5 4 3 2 1 


35 34 33 32 31 3d 2 28 2 26 5 4 23 > 21 2 19 


STROBE PIN 

DO PIN GND 

DI PIN GND 

D2 PIN GND 

D3 PIN GND 
PIN GND 

D5 PIN GND 
PIN GND 
PIN GND 
PIN GND 
PIN GND 
All other pins NC 


1 
2 
3 
4 
5 
6 
7 
8 
9 


Bölüm 10: Yazıcılar 


Yazıcı Bağlantısı 


6128 standart centronics ara birimli yazıcıların bağlanmasına ve kullanılmasına mü- 
saittir. 


Yazıcı kablosu, bilgisayarın arkasındaki PRINTER soketi ile paralel yazıcının kon- 
nektörü arasında birebir bağlantı yapacak şekilde teşkil edilmiştir. Bilgisayarın baskılı 
devresinde, yazıcı konnektöründen 2 tane eksik terminal vardır. Buna sebep stan- 
dart baskılı devre edge konnektörü kullanmaya imkan vermesidir. 


Gerçek pin ara birimi detayları bu dersin 9. bölümünde anlatılmıştır. 
Kablonun yapımından dolayı, bilgisayardaki 1 nolu pin yazıcıdaki 1 nolu pin'e, 


bilgisayardaki 19 nolu pin yazıcıdaki 19 nolu pin'e bağlanır. Fakat yazıcıdaki 18 
ve 36 nolu pinler bilgisayara bağlanmamaktadır. 
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Bilgisayarın PRINTER soketinin yukarı sırasında 17 çıkıntı vardır ve alt sıra çı- 
kıntıları 19'dan itibaren (18 yerine) numaralandırılmıştır. Bu, kullanılan her telin 
yazıcı soketinin pinlerindeki gibi, mutlaka bilgisayarın edge konnektöründe aynı 
numaralara bağlanması demektir. 


Bilgisayar BUSY (pin 11) sinyalini yazıcı ile senkronize olmak için kullanır ve eğer 
yazıcı OFF-LINE ise bekler. 


Kullanıcı tesis etme komutları gerekmez ve çıkış, 8 kalanının belirtilmesiyle yazıcı- 
ya gönderilir. 


Yazıcı Konfigürasyonu 


AMSTRAD DMPI tarafından götürülen ve ekranda gözüken özel karakterler, ekran 
ve yazıcı için karakter kodları değişik olsa dahi yazılırlar. Bu sembollerin çoğun- 
luğu, yazıcı bunun yabancı lisan koduna anahtarlandığında elde edilebilir. Örne- 
ğin: 

PRINT CHR$ (&A0) 

A 

PRINT #8, CHR$ (&A9) 

N 
yazıcıda yazılır. 
Uzatma işaretinin ( ) karakter kodu,DMP1I'de &SE olmasına rağmen çalışır.Diğer 
bir deyişle yazıcı programı A4'yı yazıcı tercüme tablosunda tutulan kodlardan bi- 
risigibi tanımlar vel&5E'ye çevirerek aynıkarakterin ekranda görünmesini ve yazı- 


cıda yazılmasını sağlar.&5E kodu DMPI'de hangi lisan moduna ayarlanırsa 
ayarlansın uzatma işareti üretilir. Diğer karakterler tabloda gösterilmiştir. 
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U.K.| USA.| France) Germany 


* yazılan karakter için DMPI talimat kitabının 18. sayfasına bakınız. 


Yukarısı daha önceden belirlenmiş çevirinin özet formudur, istenirse değiştirilebi- 
lir. Daha fazla detaylar için SOFT 968 Firmware'e bakınız. 
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Bölüm 11: Oyun Çubuğu 


Bilgisayarda yapılmış yazılım bir veya iki oyun çubuğu kullanılmasına izin verir. 
Bunlar tuştakımı gibi ele alınır ve INKEY, INKEY$ tarafından klavye tuşlarıymış 
gibi dikkate alınır. 


«6 


Oyun çubuğunun ana ateş düğmesi “ateş 2” olarak tarif edilir. 

JOY (9) ve JOY (1) fonksiyonları sırasıyla 1'nci ve 2'nci oyun çubuklarını doğru- 
dan yoklarlar. Fonksiyon son klavye taramasında oyun çubuğu anahtarlarının du- 
rumunu gösteren bitler seviyesinde bir sonuçtur. 


Aşağıdaki tablodu her iki oyun çubuğundan dönen değerler belirtilmiştir. JOY de- 
gerlerini, tuş parametre gibi alan talimatlarda kullanılan değerler takip eder. 


JOY KOMUTU TUŞ DEĞERLERİ 


BİT|GERİ DÖNENİİLK OYUN (İKİNCİ OYUN EŞDEĞER 


İkinci oyun çubuğu için olan değerler geri döndüğü zaman bilgisayar bu değerle- 
rin oyun çubuğunun mu yoksa tuş takımından mı üretildiğini ayıramaz. Bu tuş 
takımının ikinci oyun çubuğu yerine kullanılabileceği anlamına gelir. 
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Bölüm 12: Disk Organizasyonu 


AMSDOS üç değişik disk formatlamaya dayanır, bunlar: SİSTEM format DATA 
ONLY format ve IBM format. AMSDOS altında, disk açık olmayan dosyalar gi- 
rildiğinde otomatik olarak her seferinde araştırılır. Bu otomatik araştırmaya izin 
vermemek için her formatın tek sektör numarası vardır. 


3 inch'lik diskin iki yüzü vardır, fakat kullanıcının hangi yüzü soktuğuna bağlı 
olarak bir yüzüne girilebilir. Her iki yüzünde de değişik formatlar olabilir. 


Bütün Formatlar İçin Ortak 


Tek yüzü 

512 byte fiziksel sektör boyu 

40 kanal (O'dan 39'a kadar numaralandırılmış.) 
1024 byte CP/M blok boyutu 

64 rehber girişi 


SİSTEM Format 


40'den 49” her kanal için 9 sektör 2 ayrılmış kanal 


Sistem formatı ana format dayanaklıdır ki CP/M sadece sistem diskinden yükle- 
nebilir. CP/M 2.2'de sistem format diskini warm boot için sokulmasını gerektirir. 
Ayrılmış kanallar aşağıdaki gibi kullanılırlar. 


CP/M 2.2. CP/M Plus 
kanal 0 sektör & 41 CP/M için boot sektörü |:CP/M için boot sektörü 
kanal 0 sektör & 42 konfigürasyon sektörü : kullanılmaz 
kanal 0 sektör & 42-& 47 kullanılmaz : kullanılmaz 
kanal 0 sektör & 48-& 49 CCP ve BDOS : kullanılmaz 
kanal | sektör & 41-& 49 CCP ve BDOS : kullanılmaz 


VENDOR formatı, sistem formatının özel bir şeklidir. Burada herhangi bir sistem 
yazılımı ve sistemin kendine ayırdığı iki track bulunmaz. Bu format genelde yazı- 
lım firmaları program dağıtımında kullanırlar. 


SADECE DATA Format 


&Cİ'den &C2'a kadar numaralanmış her kanalda 9 sektör O ayrılmış kanal 


Bu format şeklinin CP/M 2.2 ile kullanılması tavsiye edilmez çünkü bundan warm 
boot yapılması mümkün değildir. Bununla beraber eğer CP/M Plus veya AMS- 
DOS kullanıldığında DATA format biraz daha fazla disk yeri meydana getirir. 


IBM Format 


&CI'den &C8'e kadar numaralanmış her kanalda 8 sektör 1 ayrılmış kanal 


Bu format mantıksal olarak IBM PC'de CP/M tarafından kullanılan tek yüzlü 
formatın aynısıdır. 6128, IBM format disklerini okuyup yazabilir fakat bunları kopya 
edemez veya meydana getiremez. 


Bölüm 13: Yerleşmiş Sistem Uzantıları (RSX) 


Harici komutlar DERS 5'de tanıtıldı. (AMSDOS hakkında) Temel olarak, bir ha- 
rici komut BASIC'in repertuarını | ön işareti ile belirtilmiş yeni komutlar ekleye- 
rek genişletme yoludur. AMSDOS yeni komutları için makina talimatları ROM'a 
dahil edilmiştir ve 6128 BASIC'e başladığında komutları eklemek için gerekli ida- 
re otomatik olarak ele alınır. 


BASIC başladıktan sonra makina talimatlarını RAM'a yükleyerek birçok harici 
komutu ilave etmek mümkündür. Bu tür komutlar RSX diye adlandırılırlar ve ROM 
tabanlı genişletilmiş komutlar gibi çalışırlar. RSX komutlar 6128'e Basic başladıktan 
sonra her seferinde diskten yüklenmelidirler. Normal olarak RSX komutlar bazı 
akıllı ek ünitelerin kontrolü için kullanılır. (Light pen, speech synthesiser) 


Ders 8'de RSX komutlar kullanarak 6128'in ikinci 64K hafızasına nasıl erişildiği 
anlatılmaktadır. 


318 


Bölüm 14: Hafıza 


CPC 6128, 128k'lık RAM VE 48K”'lık ROM ihtiva eder. Bu aşağıda görüldüğü 
gibi BASIC 1.1 için elde edilebilir. İlk 64K'lık RAM nominal olarak her biri 16K 
olan dört bloğa ayrılmıştır. Blok Odan 3'e kadar numaralandırılmıştır. Ekran blok 
3'ü kullanır ve blok 2'nin üst kısmı belirtildiği gibi sistem değişkenleri ile dolduru- 
lur. 


FIRST 64K OF RAM SECOND 64K OF RAM 
(unused ) 
BLOCK 
: dsc ROM 
ı 
ı 
il 
il 
ZTE ! ı 
Mock 3) PESİR Gerpes FİRMWARE DATA AREA 
JUMP BLOCK 
BASIC DATA AREA 
1SC ROM DATA ARE 


Aa 
ANY, OTHER ROMS DATA ARFA 


' 
' 
ı 
! 
! 
, 
ı 
! 
! 
ı 
ı 
, 
ı 
ı 
' 
' 
' 
, 


! 
! 
ı 
! 
! 
! 
! 
l 
, 
| 
BASIC PROGRAM AREA 
! 


Pe) 


NOTE 1: DEPENDS ON EXTERNALIY FITTED ROMS-&A6FC WHEN NO EXTERNAL ROMS FITTED 


ı 
, 
, 
, 
ı 
, 
, 
! 
ı 
ı 
ı 
! 
, 
li 
, 
! 
! 
ı 
ı 
ı 


Basıc 1.1 için bellek haritası 

Tanımlanabilir kullanıcı karakterleri başlangıçta hemen HIMEM'in üzerinde yer 
alırlar. HIMEM, MEMORY komutlarıyla değiştirilebilir fakat AMSDOS dosya- 
lar açıkken tampon yaratmak için otomatik olarak 4K düşürülebilir. Tanımlana- 
bilir kullanıcı karakterleri ancak HIMEM ayarlandığı zaman değişmemişse 
değiştirilebilirler. (Aksi takdirde SYMBOL AFTER 256 komutu tarafından ““ta- 
nımlanabilir kullanıcı karakter yok” diye ayarlanır.) BASIC başladığında tanım- 
lanabilir kullanıcı karakterleri sanki SYMBOL AFTER 240 komutu meydana gelmiş 
gibi ayarlanırlar. 


Bu sebepten dolayı HIMEM'i geçici olarak değiştirilmeden önce tanımlanabilir kul- 
lanıcı karakter alanını çökertir, sonra yeni bir pozisyonda tekrar kurar. Bu SYMBOL 
AFTER” değiştirmek için sonradan gelen programlara müsade eder. 
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Aşağıdaki örnek RSX yüklenmesiyle birlikteki HIMEM azaltılması sırasındaki ope- 
rasyonun planı gösterir. 

190 SYMBOL AFTER 256 “çöken tanımlanan kullanıcı karakterleri 

119 rsxaddress — HIMEM-rsxlenght 

120 MEMORY rsxaddress-1 

130 LOAD “rsxcode”, rsxaddress 

149 CALL rsxaddress ' log on rsx 

150 SYMBOL AFTER 140 ' tanımlanan karakterleri eski haline koy 


FIRMWARE DATA AREA 
JUMP BLOCK 

BASIC DATA AREA 

DI: ROM DATA AREA 

ANY, OTHER ROMS DATA AREA 


Memory Map with RSX loaded in recommended position 


İLAVE 1/0 


Ancak 1/0 kapı adresleri bilgisayar tarafından saklanır 7FFF'den aşağı adresler 
kullanılmamalıdır. 
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AO-A7 adres kısmının harici 1/O cihazlarının tipini yansıtması hedeflenir ve A8, 
A9 adres satırları, 1/O cihazlarının içindeki kayıtlarını seçmek için deşifre edilir. 
Geri kalan adres satırlarının All ve Al5 yüksekken sadece A10 düşük olarak de- 
şifre edilmelidir. Bunun için her cihazın çF8??, cF977, çFA??, çFB?? gibi adres- 
lenmiş kayıtları olması gerekir, burada ?? kominikasyon bağlantıları için DC?den 
DI'ye kadar ve diğer çevre elemanları için EO'dan FE'ye kadar olmalıdır. Unut- 
mayın ki adres yolunun yukarı yarısının üzerindeki (A15-A8) B kaydına yerleştiri- 
len 780 talimatları kullanılmalıdır. 


Ek ROM lar 


Devredeki ROM”un herhangi bir kısmının yerine seçilerek ilave ROM”'ların tedari- 
ği yapılır. Adres seçici ve banka seçme mantığı genişleme yoluna bir modül içinde 
bağlanmalıdır. Fakat bütün gerekli sinyaller genişleme yolundan (expension bus) 
getirilmelidir. 


Bölüm 15: CP/M Plus Terminal Benzeticisi 


Bu dersin 1. bölümünde kontrol karakterleri tablosu incelenmişti (bağlantı faali- 
yetleriyle birlikte). Bu faaliyetler, metin BASIC veya CP/M 2.2 tarafından ekra- 
na gönderildiğinde gerçekleşir ve VDU Firmware yazısında elde edilebilen faaliyetleri 
yansıtmak ve kullanma basitliği için seçilirler. Bu faaliyetler AMSTRAD bilgisa- 
yarlarında tekdir ve yazılım için adapte edilmiştir. 


CP/M yazılımı ticari ve iş çerçevesinde bir makinadan diğer makinaya uygulana- 
bilir ve kolaylıkla taşınabilir bir yazılım için standart VDU metin faaliyetleri um- 
mak normaldi. 6128 üzerindeki CP/M Plus tamamlayıcısı Zenith Z19/Z29 VDU'ya 
çok benzer faaliyetleri tedarik eden terminal benzeticisi içerir. CP/M Plus yazılı- 
mı; tesisat prosedürü normal olarak bu tip terminal için standart bir seçme ihtiva 
eder. 
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CP/M Plus terminal benzeticisi tarafından sunulan faaliyetler değişik kontrol kodları 
gerekmesine rağmen VDU Firmware yazısının daha önce sunduklarını içerir. 


20'den FF'e kadar alandaki karakterler şimdiki kursör pozisyonunda görüntüle- 
nir. Eğer kursör sağ tarafdaki kolonda değilse bir kolon sağa hareket ettirilir. Eğ- 
re kursör sağ tarafdaki kolondaysa ve yazılma durumundaysa bir sonraki satırın 
sol kolonuna hareket ettirilir, gerekliyse ekrandaki yazılar yukarıya yuvarlanır. 


00'dan FI arasındaki kontrol kodları olarak çevrilen karakterler şunlardır. 


&07 BEL Bip sesi 


&08 BS Geri dönüş. Sola bir kolon hareket eder. Eğer kursör en sol- 
daki kolonun üzerindeyse bir üstdeki satırın en sağ kolununa 
haraket ettirilir. 


&OA LF Satır atlama. Kursör bir satır aşağı haraket eder, ekran yuvar- 
lanması gerekiyorsa yapılır. 


& OD CR Satır başı. Kursör son satırın en sol kolonuna gider. 


& 1B ESC Kaçış sırasını bildirir. 


Diğer bütün kontrol kodları ihmal edilir. 

Şu kaçış sıraları kabul edilir. Bir kaçışı takip eden diğer herhangi bir karakter gö- 
rüntülenir ve kursör ilerler. Bu özellik kontrol kodları 00'dan IF'e kadar olan ka- 
rakterleri görüntülemekte kullanılabilir (unutmayınki bir çok uygulama lisanları 
09 (TAB) kontrol kodunu birkaç başlık olarak genişleterek (ESC) (TAB) genellik- 
le 09 karakterleri için görüntülemez. 


(ESCJ 0 Vaziyet satırı zayıflar. Disk sistem mesajı CTR çıkışı ile gözü- 
kür. CTR ekranın alt satırını kullanır. 


(ESCİ 1 Vaziyet satırını kuvvetlendirir. Disk sistem mesajları ekranın 
alt satırında görünür. 
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(ESC) 2 (n) 


(ESCİ 3 (m) 


(ESCJ A 
(ESCJ B 
(ESCJ C 
(ESCJ D 


(ESCJ E 


(ESCJ H 


(ESCJ 1 


(ESCJ J 


(ESCJ K 


Karakter ayarlamasını değiştirir (bu dersin 16. bölümüne bakı- 
nız). (n) lisan parametresidir ve 07 ile maskelenmiştir. Belirli 
karakter matrisleri (20 ile F7 arasındaki) 80'den FF'e kadar 
olan diğer karakterle değiş tokuş yapılır. Bu komutun faaliyeti 
enternasyonal karakterleri seçebilen yazılıma sahip yazıcıların 
kontroluna benzer. 


(n)—0 USA 
(n)—1 France 
(n)-2 Germany 
(n)—-3 UK 
(n)-4 Denmark 
(n)-5 Sweden 
(n) 6 Italy 
(n)-7 Spain 


Ekran modunu değiştirir. (m) — ekran modu * 20. Eğer mode 
0 ile 2 arasını vermek için 3 ile maskelenir. Mode 3 ihmal edi- 
lir. Ekran temizlenir, fakat kursör pozisyonu etkisizdir. 
Kursör yukarı. Eğer en üstteyse birşey yapılmaz 

Kursör aşağı. Eğer en alttaysa birşey yapılmaz 

Kursör ileri. Eğer en sağ kolondaysa birşey yapılmaz. 

Kursör geriye. Eğer en sol kolondaysa birşey yapılmaz. 

Sayfa sil. Kursör pozisyonu etkisizdir. Bu komut bütün ekranı 
temizler (24 x 80 moduna dahi ayarlı olsa). Diğer kaçış modla- 
rı 24x80 moduna ayarlanmışsa sadece 24 x 80 alanda etkili 
olur. 


Kursör evi. Kursörü sol kolonun en üst satırına haraket ettirir. 


Ters indeks. Kursörü bir satır üste çıkartır. Eğer gerekirse ek- 
ranı aşağıya kaydırır. 


Sayfanın sonuna kadar temizler. Kursör pozisyonundaki ka- 
rakteride siler. Kursör pozisyonu etkilenmez. 


Satırın sonuna kadar siler. Kursör pozisyonundaki karakteride 
siler. Kursör pozisyonu etkilenmez. 
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(ESCJ L 


(ESCJ M 


(ESCJ N 


(ESCİ Y (ne) 


(ESCİ b(cp) 


Satır sakıştırır. Tüm aşağıdaki satırlar kursörün bulunduğu sa- 
tar dahil aşağıya kaydırılır. Kursör sahası temizlenir. Kursör 
pozisyonu etkilenmez. 


Satır sil. Kursörün bulunduğu sıra dahil tüm aşağıdaki satırlar 
yukarı kaydırılır. Kursör pozisyonu etkilenmez. 


Karakter sil. Kursörün sağındaki tüm karakterler sola, bir ka- 
rakter pozisyonuna değiştirilirler. Sıranın sonundaki karakter 
temizlenir. Kursör pozisyonu etkilenmez. 


Kursörü verilen pozisyona hareket ettirir. Eğer pozisyon ekran 
kenarının dışındaysa, kursör ekran kenarına, kadar hareket 
eder. (r)—sıra pozisyonu * 20, (c) -kolon pozisyonu * 20. En 
üst sol köşe sıra 0, kolon O'dır. 


Ön plan rengini ayarlar. Ekrandaki tüm karakterleri etkiler. 
(cp) renk parametresidir ve 3F ile maskelenir, sonra iki bitlik 
üç sayı gibi ele alınır ki her biri üç ilkel rengin yoğunluğunu 
belirter şöyleki: bit 0,1 mavi, bit 1,2 kırmızı ve bit 3,4 yeşil. 
6128 dört tanımlanabilir seviye üzerine üç yoğunluk seviyesini 
planlamıştır: 


Sıfır yoğunluk Yarım yoğunluk Tam yoğunluk 


00 binary Ol veya 10 binary 11 binary 


(ESC <(cp) 


(ESCJ d 


(ESCİJ e 
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Arka zeminin rengini ayarlar. Ekran üzerindeki bütün arka ze- 
min ve çerçeve etkilenir. Renk yukardaki gibi belirtilir. 


Sayfanın başlangıcını siler. Kursörün durduğu yerdeki karakter 
dahil. Kursörün pozisyonu etkilenmez. 


Kursörü yak. İstenmeyen bir parlamayı önlemek için normal 
yazı sırasında en son karaktere basıldıktan 1/10 sn. sonraya 
kadar kursör gözükmez. 


(ESC) f 
(ESCİ j 


(ESC) k 


(ESC) | 


(ESCJ o 


(ESCİ p 


(ESC) g 
(ESC) r 
(ESC) u 
(ESC) v 


(ESC) w 


(ESC) x 


(ESCİ y 


Kursörü kapat. 
Kursör pozisyonunu sakla. 


(ESCO)'nin sakladığı gibi kursör pozisyonunu eski haline 
koyar. 


Satır sil. Kursör pozisyonu değişmez. 


Satırın başlangıcını sil. Kursörün durduğu pozisyondaki karak- 
teride siler. Kursör pozisyonu değişmez. 


Ters video modunu gir. Yazılabilen karakterler ön plan ve ar- 
ka zemin renkleri ters çevrilirken yazılır. 


Ters video modundan çık. 
Altını çizme moduna girer. 
Altını çizme modundan çıkar. 
Satır sonunda katlan. 


Satırın sonunda çıkar. 


24x80 moduna gir. Bazı uygulama programları standart 24x80 
ekranını gerektirir. Bu komut, ekran hangi makinaya ait olur- 
sa olsun ve hal satırı girilip girilmemesi farketmeden, ekranın 
tüm boyutları dikkate alınmaksızın, 24x80 ekranı yapar. Ek- 
ran temizlenir. 


24x80 modundan çıkar. Ekran temizlenir. 
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Bölüm 16: CP/M Plus Karakter Tertibi 


Bu dersin 10. bölümünde yazıcı çeviri tablosu anlatılmıştı. Bu tablonun amacı be- 
lirli karakterleri, BASIC ve CP/M 2.2 karakter tertibinden lisan seçimi yapılmış 
yazıcı tarafından yazılabilecek forma çevirmektir. Bu işlem, BASIC karakter se- 
tinde birkaç yabancı yazım karakterleri bulunduğundan kısıtlıdır. 


Her ne kadar bu yazıcı çevirici şeması CP/M Plus altında çalışıyorsa da karakter 
tertibi, ekran karakterleri ile yazılan karakterler arasındaki uygunluğu sağlamaya 
müsade etmek için fazlalaştırılmıştır. Aşağıdaki tablo bu bağlantıyı gösterir: 


23 24 40 5B 5C 5D SE 60 7B 7C 7D 7E 


USA 
France 
Germany 


UK 


Denmark 
Sweden 
Italy 


Spain 


CP/M Plus International Character Set 
Makinanın yabancı çevre ile çalışması iki faaliyeti gerektirir. 


1- Yazıcının kendisi gerekli lisana ayarlanmalıdır. (Genellikle küçük bir (DIP) anah- 
tar ile olmakla beraber bazı yazıcılar kontrol kodları gönderilmesine izin verirler.) 


2- İstenilen ekran karakter tertipleri; 
LANGUAGE (n) geçiş komutu 
veya 


(ESCJ 2 (n) terminal benzeticisine gönderilerek yapılır. 
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Pratikte, başlangıç konumu, LANGUAGE ve SETLST faaliyetlerini kullanarak 
PROFILE.SUB operasyonunun bir kısmı gibi gerçekleştirilebilir. 


7 bit yazılım 


Yabancı lisan faaliyeti çok kuvvetli olmakla beraber, önemle ifade edilmelidir ki 
yerel yabancı karakterler, değiştirilen normal (veya USA) karakterler, bundan sonra 
görüntülenemezler. Yaklaşık bütün yazılımlar (birçok CP/M Plus faydaları, keli- 
me işlemcileri ve lisanlar) sadece 7 bit karakter teşkili ile çalışırlar. 


8 bit karakter tertibi ile çalışmak... 


BASIC karakter tertibi 256 değişik sembol içerir ve değerler 128*den 255'e kadar 
(80'den FF'e kadar) olan ve oyunlarda, ev hesaplarında kullanılan değişik grafik 
sembollerini kapsar. CP/M Plus da 256 karakteri içerir fakat ikinci 128'i BASIC'de 
olanlardan farklıdır, CP/M Plus çerçevesinin iş ve enternasyonal tadını yansıtır. 


0123456789ABCDEF 0123456789ABCDEF 
oOoTAB»suliEe4st10N sh eiiriedizlaiimi 
«&Büöe9hpuanpoe Tile .telkşiepeimkeie$ 

ei SE EN EE 4 a9“ EOS $tubye»hii 
60123456789: ;4-> fç “#235 5BoeYg” 
GABCDEFGHIJKELMNO ÖELİOĞAETİDAE1DDY 
POERSTUYMEYZE SİT. ÖETİÖÜLCEASNAS: EFE 
*abedefghijklmano âkğidğüğğtiğöüdsgiğük 
Pgarstuvuxyzt1l?3”0 dâüğlisucadsadsö)€0z 


a9 a Bb EN 4 O 
nım Oo 00>k'|.w 


Characters Oto 127 (&00to &7F) Characters 128 to 255 (&80to &FF) 


Standart CP/M Plus Karakter Seti 


8 bit karakterle çalışabilir yazılım, bu karakterleri yukarıda görülen ekran resmin- 
deki gibi sadece kutuları doldurmakta değil lisanda belirli bir değişiklik yapma- 
dan bütün yabancı dil karakterlerini bir kerede girebilir. Bu yol ile bütün çubuk 
ve parantez tipi karakterler elde edilebilir. 


Şunu unutmayın ki, hali hazırda çok az 8-bit yazılım mevcuttur ve bu O'dan 31'e 


kadar ve 128'den 255'e kadar olan karakterler yukardaki ekrandaki şekilde gözü- 
kürler. Diğer taraftan yazıcıda nasıl çıkacağı, yazıcının özelliğine bağlıdır. 
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KONU 8 
Bellek Bankası Yönetimi 


İlgili Konular: 
* Ekran Görüntülerinin saklanması 
* Sahte-dosya çalışması 


BASIC 1.1 için bellek planı (Ders 7 bölüm 14'de gösterilmiştir) 128Kk RAM'ın 
64'K'sının kullanılmadığını gösterir. BASIC ve firmware, disk ROM ile birlikte 
olan ROM'da bulunurlar ve normal belleği 64K?dan 112K”ya (64K RAM, 48K ROM) 
yükseltir. 


Her 16K”lık bölüm “blok? diye adlandırılan ve herhangi bir dört blok seçimi (top- 
lam 64K yapmak için) “banka” diye adlandırılır. Bu sebeple blok seçim tekniği “banka 
anahtarlaması” diye isimlendirilir. 


Z80 mikroişlemcisi, herhangi bir zamanda sadece 64K”lık belleğe yer bulabilir. Bun- 
dan dolayı çalışma sisteminin firmware ROM'u RAM'ın 0 bloğu yerine harekete 
geçiren ve BASIC ROM veya disk ROM'u 3 blok yerine harekete geçiren talimat- 
ları vardır. Bu anahtarlamalar BASIC veya firmware gerektiği zaman otomatik 
olarak olur. RAM'ın banka anahtarlanması sadece bu kavramı ROM'dan ziyade 
RAM”ın kaplanmasını ilave için genişletir. Anahtarlama bir assebler programı ta- 
rafından yürütülür. 


BANKMAN.BAS programı sistem disk paketinin 1. yüzünde önceden hazırlan- 
mıştır. Eğer program BASIC başladıktan sonra işletilirse standart bellek banka yö- 
netimini RSX kodda tesis eder. Program “BELLEK BANKASI YÖNETİMİ” diye 
bilinir. 

64K'lık hafızanın bir kullanımı da resim ekranı için geçici depo yeri gibidir. Örne- 
ğin: Birçok değişik ekranları depolayan veya hazırlanmış değişik ekranları olan video 


oyunları kapsayan tür uygulamalar. 


İkinci 64K'nın diğer bir kullanılışı dizi matris alanına veya sadece RAM diske uza- 
ması gibi ele alınan değişken çalışma alanı uzamasıdır. 
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Bölüm 1: Ekran Görüntülerinin 
Depolanması 


Ekranınızı Seçin 


Bellek bankası yöneticisi Blok 1'i anahtar dışı yapıp, ikinci 64K”daki dört bloktan 
birini Blok (in yerine anahtarlayabilir. Aşağıdaki çizim bu faaliyeti göstermekte- 
dir. İkinci 64K”daki her bloğun aynı adres alanını doldurduğuna dikkat eden. 
(4000*den 7FFF'e kadar) Blok Vin içeriği (muhtemelen BASIC programınızın or- 
tasıdır) korunur ve Bellek Bankası Yöneticisi bitince eski haline konulur. Aşağıda 
beş adetten başka üç tane daha banka seçimi mümkündür, fakat bunlar CP/M 
Plus'ın yerine getirilmesinde faydalıdır. 


Hardware bank switching 


Bellek Banka Yöneticisi, bilgilerle dolu bir bloktan diğerine hareket etmek için iki 
komuta gereksinir. 4. ve 7. blokların içeri ve dışarı anahtarlanmaları gerekirse oto- 
matik olarak yapılırlar ve bellek şeması, içeri anahtarlanmış blok | ile bırakılır. 
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Komutlar: 
ISCREENSWAP, ((ekran bölümü),| (ekran numarası), (ekran numarası) 
iki bloğun içeriğini değiştirir. 


ISCREENCOPY, ((ekran bölümü),| (gidilecek ekran numarası), (kaynak ekran nu- 
marası) 


bir bloğun içeriğini diğer bir blok içine kopya eder. 


Tercihe bağlı (ekran bölümü) parametresi, bloğun 1/64'ünün (16K'dan 256 bayt'- 
ının) kopyası için yazılıma sebep olur. Bu sebeple (ekran bölümü) 0 ile 63 arasın- 
daki değerleri alır. Bu mode'deki çalışma, eğer ekran hareketiyle birlikte diğer bir 
işlem koymak gerekirse kullanışlıdır. Bir ekran değiş tokuşu saniyenin 150/300'de 
biri (150 zaman sayımı) sürede olur. 


(Ekran numarası)'nın | (normal ekran), 2, 3, 4 veya 5 olması gerekir. Kopya ve 
değiş tokuş işlemleri kaynak veya gidilecek yer ekran | ise daha hızlı çalışır. Ekran 
donanım yardımıyla yuvarlanma etkisine dikkat ediniz. Ekran görüntüleri o şekil- 
de yapılmalıdır ki ekran | ile aynı donanım pozisyonunda olsun. En basit pozis- 
yon MODE komutuyla teşkil etmektir. 


l 
Ekran Anahtarlama Komutlarının Kabiliyetini Tecrübe 
Etmek 


Önce, Bellek Bankası Yöneticisi programı sistem disk paketinin 1. yüzünden şu 
şekilde çalıştırılır: 


RUN “BANKMAN” 

Sonra şunu yazın: 
MODE 1 

Ekran temizlenir. Ardından da şunu yazınız: 
' Bu esas ekran 


ISCREENCOPY, 3,1 'Esas ekranı bellek 3'e gönderdi 
CLS 
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Ekran tekrar temizlenir. Şunu yazınız: 
' Bu ortadaki ekran 
ISCREENCOPY 2,1 'Orta ekranı bellek 2'ye gönder 
ISCREENSWAP,2,1 'Bellek 2 ve bellek 3'ü değiştir 
ISCREENCOPY ,1,3 'Orta ekranı bellek 3'den eski haline koy 
ISCREENCOPY ,1,2 'Esas ekranı bellek 2'den eski haline koy 


Son olarak, bu konu üzerinde, Ders un son bölümünde kapsamlı bir “Ekran 
tasarımıcısı? proramı vardır. 


Bölüm 2: Sahte-Dosya Çalışması 


RAM disk olarak ele alındığında ikinci 64K'nın tümü, sabit uzunlukta kayıtlar içeren 
“RAMdosya'ya bölünür. Kayıt uzunluğu O ve 255 bayt arasında olabilir. (Tavsiye 
edilen en az 2 bayt'tır.) (RAM kayıt uzunluğu) bir kere kurulduğunda, her kayıt 
kendi (RAM kayıt numarası) tarafından girilir. Bir kayıt uzunluğu kullanarak RAM 
dosyası yazmak ve diğerini kullanarak geri okumak kabul edilir. 


NOT: RAM dosyası sadece veri içermelidir. Program talimatları ihtiva etmesi gibi 
bir faaliyeti yoktur. 


Rastgele okuma disk dosyalama planları ile ortak olduğu gibi “son kayıt numarası” 
kavramı vardır. Bu önceden belirlenmiş kayıt numaralarıdır ki RAM dosyasında 
otomatik basamaklandığı zaman faydalıdır. 


KOMUT 
I BANKOPEN, (RAM kayıt uzunluğu) 


Bütün kayıtları sabit uzunluğa ayarlar, son kayıt numarasına sıfır başlangıç değe- 
ri verir fakat herhangi bir şekilde belleği temizleyemez. 


KOMUT: 


I BANKWRITE, ©(geri dönüş kodu), (dizi ifadesi), (,JRAM kayıt numarası)| (dizi 
ifadesi)ni RAM dosyasına yazar. 
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(RAM kayıt numarası) hangi kaydın yazıldığını belirtir. Eğer parametre ihmal edilirse 
son kayıt numarası kullanılır. Son kayıt numarası bir sonraki kayıt noktasına ayar- 
lanır. Eğer (dizi ifadesi) kayıdı tamamen doldurmazsa eski karakterler (üzerine ya- 
zılmayan) kayıdın sonunda kalır. Eğer (dizi ifadesi) kayıttan uzunsa artan karakterler 
bir sonraki kayıda dökülmesini bertaraf etmek için atılırlar. (geri dönüş kodu) bir 
tamsayı değişkenidir, yazılan kayıt numarasını getirir (eğer operasyon başarılı ise), 
veya yazma operasyonu bir şekilde başarısız olmuşsa negatif bir hata kodu verir. 


-1 Dosya sonu hatası. Gerekli kayıt numarasının adresi 64K'yı aşmış. 


-2 Banka anahtarlama hatası. (Hiçbir zaman olmamalı) 


ÖRNEKLER: 


IBANKOPEN, 19 
IBANKWRITE, O&r9o,"“123 test”,9 
IBANKWRITE, &r*b ,w$ 


KOMUT: 
IBANKREAD, ©(geri dönüş kodu), ©(dizi değişkeni) |,(RAM kayıt numarası)| 


RAM dosyasından (dizi değişkeni)'ne kayıt okur. 


(RAM kayıt numarası) hangi kayıdın okunacağını belirler. Eğer parametre kon- 
mazsa, son kayıt numarası kullanılır. Son kayıt numarası bir sonraki kayıt numa- 
rasına ayarlanır. Eğer kayıt içeriği (dizi değişkeni)”ni tamamen doldurmuyorsa eski 
karakterler (üzerine yazılmamış) (dizi değişkeni)'nin sonunda kalır. Eğer kayıt içeriği 
(dizi değişkeni)Y'nin boyundan uzunsa artan karakterler atılır. Harici komut sıra- 
sında dizi değişkeninin boyunu arttırmak mümkün değildir. (geri dönüş kodu) bir 
tamsayı değişkenidir. Okunan kayıt numarasını eğer işlem başarılıysa, geri getirir 
veya işlem, herhangi bir sebepten başarısızca negatif hata kodu verir. 


-1 Dosya sonu hatası. İstenen kayıt numarasının adresi 64K'yı aşmış. 
-2 Banka anahtarlama hatası. (Hiçbir zaman olmamalı) 


ÖRNEK: IBANKREAD, Or9/,i$,0 
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Arama... 


Depolanmış kayıtları, belli bir giriş yeri aramak için araştırmak mümkündür. 
KOMUT IBANKFIND, ©(geri dönüş kodu), (dizi için araştır) |,(başlangıç kayıt 
numarası) |,(bitiş kayıt numarası|))| 


Bütün RAM kayıtlarını tarar. (başlangıç kayıt numarası) aramanın hangi kayıttan 
başlayacağını gösterir. Eğer parametre konmamışsa son kayıt numarası kullanılır. 


Araştırma, (RAM kayıt uzunluğu)'nda basamak basamak, tam bir kopyası bulu- 
nuncaya kadar ikinci 64K boyunca ilerler. 


Eğer, (bitiş kayıt numarası) belirtilmemişse araştırma, bu kayıt incelendikten son- 
ra sona erer. (Tam bir kopya bu noktadan önce bulunmamışsa) 


Eğer araştırma başarılıysa, son kayıt numarası, kopyanın bulunduğu kayıttaki nok- 
taya ayarlanır. (Aksi takdirde etkisiz kalır) 


(geri dönüş kodu), kopyanın bulunduğu kayıt numarasını getiren bir tamsayı de- 
ğişkenidir. (Eğer operasyon başarılıysa) veya operasyon başarısızsa (herhangi bir 
sebepten dolayı) negatif bir hata kodu verir. 


-1 Dosya sonu. Başlanıç kayıt numarasının adresi 64K'”yı aşarsa veya bitiş kayıt 
numarasını aşarsa. 


-2 Banka anahtarlama hatası. (Hiçbir zaman olmamalı) 

-3 Tam bir kopya bulunamadı. 

(dizi için araştır), rastgele kartlar içerebilir, (sıfırlarla işaretlenmiş -CHR$(0)) ve 
karşılaştırma (RAM kayıt uzunluğu) ile veya (dizi için araştır)'ın uzunluğu arasın- 


da hangisi kısa diye yapılır. 


ÖRNEKLER: 


IBANKFIND, Or*h,“123 test”,g 


IBANKFIND, &r*/;f$,190,200 
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Hatalı Uyuşmalardan Sakınmak... 


Yanlış parametre numarası gibi açık hatalar bir “kötü komut? (Bat Command) gi- 
bi rapor edilirler. Bununla beraber harici komutlar mekanizması “hatalı uyuşma 
tipi” (Type mismatch) hataları algılamaz ve kullanıcı, parametrelerin doğru şekil- 
de uygulanmasını sağlamalıdır. 


Aşağıdaki program, 7 harfli kelimenin anagramlarını içeren bir data ortamını so- 
ruşturmak ve kurmak için RAM disk komutlarını kullanır. Uygunluk için araştı- 
rır ve siz rastgele kartlar kullanmalısınız. (Anagram: Harflerin sırasını değiştirmek 
suretiyle bir kelimenin manasını başkalaştırmadır.) 


Örneğin, FIGURES kelimesinin ?RUGS?? ile uyuşan anagramları: FRUGSIE, 
FRUGSEJ, IRUGSFE, IRUGSEF, ERUGSFI ve ERUGSIF'dır. Bunları oluştur- 
mak için database biraz zaman alacaktır fakat 64K, doldurmak için çok fazla bir 
bellektir. 


14 'ANAGRAMS by ROLAND PERRY 

20 ' copyrihgt (c) AMSOFT 1985 

30 ' 

49 "Remember to RUN “BANKMAN” before running program 

50 OKAKAKKÜKKAKAKAAKEKKEKAAAAKAKAAkAkkkkkkkkkkkkkkkkkkkk 
60 ' 

70 MODE 2 

80 DEFINT a-z 

90 re <-dIBANKOPEN,7 

100 INPUT “What 7 letter word to scramble ““;s$ 

119 IF LEN (s$) < >7 THEN 199 

120 PRINT“Please wait...” 

13ğ LOCATE 1,15:PRINT “Computing:” 

140 FOR c1-1TO7 

150 FOR c2-1TO7 

160 IF c2—c1 THEN 370 

17/0 FOR c3—-1TO7 

180 IF c3—c2 OR c3—c1 THEN 364 

190 FOR c4—-1TO7 

200 IF c4—c3 OR c4—c2 OR c4-—c1 THEN 350 THEN 359 

210 FOR c5—11TO7 

22001F c5—c4OR c5—c3OR c5—c2 OR c5—c1 THEN 344 

230 FOR c6-11TO7 

240 1F c6—c5 OR c6—c4 OR c6-—c3 OR c6—c2 OR c6-—c1 THEN 330 
250 FOR c7-11TO7 
2601Fc7—c6ORc7—c5ORc7-—c4O0Rc7-—c3O0Rc7-c20Rc7-—c1 THEN 329 
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270 o$ — MID$(s$,c1,1) - MID$(s$,c2,1) - MID$(s$,C*,1) - MID$(s$c4,1) -- 
MID$(s$,c5,1) * MID$(s$ o c6,1) - MID$(s$,c7,1) 

280 LOCATE 12,5:PRINT x;0$ 

290 IBANKWRITE, ©r9h ,0$ 

300 IF ro < ğ THEN STOP 

310 X—x4$1 

320 NEXT c7 

330 NEXT c6 

340 NEXT c5 

350 NEXT c4 

360 NEXT c3 

370 NEXT c2 

380 NEXT c1 

390 lastrec —r“o 

400 REM now look them up 

410 ro —0:g$ — SPACE$(7) 

420 PRINT*INPUT “What match do you reguire: use ? as will d card: ”,m$ 
430 m$ — LEF$(m$,7) 

440 FOR x -1 TO LEN (m$) 

450 IF MID$(m$,x,1) — “?'THEN MID$(m$,x,1) x CHR$9) 
460 NEXT 

470 IBANKFIND, Or ,m$,9,lastrec 

480 IF x9o < 0 THEN GOTO 429 

494 IBANKREAD, Or ,g$ 

500 PRINT g$, 

514 IBANKFIND, &r*/,m$,re * 1,lastrec 

520 GOTO 480 
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KONU 9 
Boş Vaktinizde... 


Bu ders bazı geçmişteki, genelde hesaplama bölgelerine ve kısmen 6128'e yavaş 
yavaş göz atar. Bu bölümü bilgisayar ile çalışmadan önce, mutlaka okumanız ge- 


rekmez. Fakat bu bilgisayarın içinde neler olup bittiğini biraz anlamaya yardımcı 
olacaktır. 


Bölüm 1: Genel Olarak Konuşursak.... 


Sıkı Durun! 


Akıl durdurucu bilgisayar oyunlarının avantajlarından faydalanmak için 61289i almış 
olabilir ve belkide hâlâ “Hardware? (Donanım) adı altında gelen bilgisayar kav- 
ramlarını merak ediyorsunuzdur. 


Donanım (Hardware), kaldırabileceğiniz ve taşıyabileceğiniz bir cihazdır. Örne- 
ğin Ana bilgisayar tuş takımı, monitör, bağlantı uçları vs. Gerçekten “Yazılım” prog- 
ramlar, kitaplar, disk ve kaset temelli bilgiler hariç herşeylerdir. 


Bilgisayarın davranışı yoluyla bazı özellikler donanımın sayesinde üretilmiştir. TV'de 
veya monitördeki renkli görüntüler gibi. Bu donanım becerilerini kullanarak özel 
tasarlanmış karakterleri ve şekilleri ekranda üreterek yazılıma (Software) bağlıdır. 


Donanım gerçekte aydınlatmak için TV tüpünün ekranının içindeki ışık neşreden 
yüzüne elektron demetlerini yöneltir, yazılım bunu nasıl ve ne zaman gerçekleşti- 
receğini emirler ilave ederek zekice donanıma söyler. Zamanlama kontrol ve sıra- 
lamayı, uzay gemisinin kalması için veya tuş takımından bir harfi yazdığınızda 
görünmesi için ilave eder. 


Bir Bilgisayarı Diğerlerinden Daha İyi Yapan Nedir? 


Yazılımsız donanım işe yaramaz. Donanımsız yazılımda işe yaramaz. Bilgisayarın 
değeri ikisinin beraberce vazifelerini beraberce yapmalarıyla başlar. Donanım ve 
yazılım performansını derecelemek için bazı genel olarak kişisel bilgisayarlar için 
kabul edilen referans noktaları şunlardır. 
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1. Ekran Hassasiyeti-Görüntüdeki En Küçük Görünebilir Parça. 


Programcı için elde edilebilir renklerin sayısı ve tek ekran alanında görüntülenebi- 
len yazı karakterlerinin sayısı dahil faktörlerin konbinasyonudur. 


Kolayca anlaşılabileceği gibi, 6128, bu münasebetlerin her birinde benzer fiatlı ma- 
kinalara oranla daha iyidir. 


2. BASIC Yorumlayıcısı (Çeviricisi) 


Hakikatte her ev tipi bilgisayarın, donanım özelliklerini kullanmak için kullanıcı- 
ya programlar yaratmaya başlamasına izin veren BASIC çeviricisi vardır. Yapısı- 
nın içinde olan programlama lisanı (BASIC) makinanızla sunulmuştur ve kendisi 
bir programdır. BASIC, dünyada geniş çapta kullanılan basit bir bilgisayar lisanı- 
dır ve her lisan gibi genel lehçelerin değişikliğinden meydana gelmiştir. 


6128'deki tercüme BASIC'ın en uygun lehçelerinden biridir ve CP/M disk çalış- 
ma sistem altında çalışan programları işletir. BASIC'ın çok süratli tamamlayıcısı- 
dır, diğer bir deyişle hesaplarını çok çabuk tamamlar. Sizi ilgilendirmemekle beraber 
bir bilgisayar 3 ile 5'in çarpımını 0,05 saniyede yaparken diğer bir bilgisayar aynı 
işlemi 0,075 saniyede yapar ki ekrana grafik çizen bir program binlerce basit he- 
saplamaları çağırır, 0,05 ile 0,075 saniyenin farkı sonunda ekleyerek düşünmeye 
değer bir performans farklılığı ortaya çıkar. 


Siz sık olarak ““Makina kodu” teriminin kullanıldığını duyacaksınız. Makine ko- 
du, talimat kodunun işlemciden geçebilen ham halidir. Bu bir şey sorulduğunda 
daha az bir çalışma zamanı alır ve BASIC çeviricisinden geçerken 5 ile 15 defa arası 
daha çabuk neticeyi verir. Diğer taraftan aynı işi yaptırmak için makine koduyla 
yazılan program, BASIC kullanarak yazılandan 5 ile 50 defa daha uzun zaman 
alır. 


Amstrad bilgisayarınızdaki BASIC, diğer bilgisayar sistemleri arasında bulunan 
en hızlısı ve on özellik dolu olanıdır ve tecrübeli BASIC programcısının yüksek 
seviye lisansının çeviricisinin tabiatında bulunan ağırlığının üstünden umulmaz di- 
namik görüntü ve müzikal tesisleri gerçekleştirmesine yardımcı olan bir çok husu- 


siyetleri birleştirmiştir. 
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3. Genişleme Kabiliyeti 

Bir çok bilgisayar, yazıcı, oyun çubuğu, extra disk sürücüsü gibi ilave donanım 
parçalarına gereksinme duyarlar. Mantığa aykırı gibi görünmesine rağmen bazı 
başarılı bilgisayarlar, basit bir yazıcı veya oyun çubuğu gibi ilave donanım parça- 
larının takılması için dahi genişleme ara birimi adı verilen ek birimlere ihtiyaç du- 
yarlar. 


6128 bilgisayarının özelliği, yapılmış centronics yazıcı kapısı, ilave disk sürücüsü 
için bir kapı, bir kaset data (4 motor kontrol) soketi, iki oyun çubuğu, stereo ses 
çıkışı, sesi interface'e takmak için kullanılan geniş kapsamlı çıkış soketi (AMS- 
TRAD model RS232C), bir MODEM bir komuşma sentesizörü (AMSTRAD mo- 
del SSA2), bir ışıklı kalem vs. gibi çok geniş kapsamlıdır. 


4. Ses 


Bir bilgisayarın ses özellikleri, sesin sinek vızıltısı gibi veya bir elektronik müzik 
enstrumanı gibi çıkmasıyla hesaplanır. 


6128 bilgisayarı 8 oktav 3 kanal ses üretici kullanır ki genlik ve ton zarflarında 
tam bir kontrol ile uygun bir müzikal kaliteyi üretir. Bundan başka ses, bir kanal 
sol çıkış, bir kanal sağ çıkış ve üçüncü kanal ortada kalarak stereo olarak ayrılır. 


Bu size sesin hareketi takip etmesini sağlayan program yazma olanağı sağlar. 


Neden Yapamasın? 


Bu günün modern teknolojisinin kuvvetiyle, kullanıcılar daima 6128 gibi gelişmiş 
bilgisayarların neden işleri TV'deki gibi yapamadığını merak ederler. Örneğin ne- 
den bir bilgisayar ekranda yürüyen bir adam resmini tabii bir şekilde canlandı- 
ramıyor? 


Niçin bütün bilgisayarın sundukları haraketli şekiller kibrit çöpünden yapılmış gi- 
bi? 


Bu sorunun cevabı oldukça karışıktır. Fakat sakın bilgisayarınızın ekranının TV 
ekranının zekasında olduğunu zannetme aldatmacasına düşmeyin. Bir televizyon 
cihazı tayfın bütün renkleri boyunca aydınlık ve karanlık uçları arasındaki hassa- 
siyetin sonlu alanını tarif eden lineer bilgileri kullanarak çalışır. Bu çalışma, bilgi- 
sayar tekiminde, TV resminin görüntü hafızası ev tipi bilgisayar görüntüsünden 
yirmi defa büyüktür demektir. 
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Bu problemin sadece bir bölümüdür ki bu resmi canlandırmak için muazzam mik- 
tarda bellek yüksek bir süratte (her saniyede 50 defa) işlenmelidir. Bu yapılabilir 
fakat ev bilgisayarından bir kaç bin defa daha pahalı bir bilgisayar tarafından ya- 
pılabilir. 


Tuş Takımı Yabancı Gelmiyor... 


Bilgisayarın elektronik göstergesi olan bir daktilo olduğu gibi yanlış bir fikre ka- 
pılmayın. Ekran elektronik bir kağıt değil, bir komut konsoludur. Bu makine ha- 
fızasındaki programlama lisanı ile bağlantı imkanı vermesi demektir. 


Bilgisayar tuş takımından yazdığınız bütün karakterleri program talimatları gibi 
çevirmeye uğraşır. (RETURN) tuşuna bastığınızda bilgisayar ne yazdığınıza ba- 
kar ve BASIC ile alakalı görmezse girişi kabul etmez ve şu hatayı mesajını verir. 


Syntax error 


Bununla beraber bilgisayarınızda bulunan bir kelime işlemci sistemi her hangi bir 
kelime veya kelimeler dizisi yazıp (RETURN) tuşuna bastığınızda, sistemi sanki 
bir elektronik daktilonun elektronik kağıdı gibi alıştırır. Fakat bunu yapmak için 
önce kelime işlem programının tamamını makineni hafızasına yüklenmelidir. 


Bilgisayar ev ve ofiste, TV gibi alışılagelmiş bir cihaz haline geleceğe benziyor. 
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Kim Korkar Anlaşılmaz Dilden 


Mütehassıs endüstrilerde olduğu gibi, hesaplama, basit lisan açıklamaları için bir 
çok kelime gerektiren mükemmel haberleşme kavramının kısa formu olarak kendi 
anlaşılmaz dilini geliştirmiştir. Bu sadece yüksek teknoloji işi değildir, bir termi- 
nolojinin karışık lehçe ve fısıltı kelimelerinin görünebilir buzlu ekranı arkasında 
kendini saklamanın suçlusudur. Bir çoğumuz, temel meslekler ve sanatların hepsi 
tarafından anlamayı kaldıran engellerle karşı karşıya gelmişizdir. 


Esas farklılık şudur: Geçerli karışık lehçelerin konuşturulması kelimelerin kulla- 
nılma yolundan gelir. Hesaplama durumunda olduğu gibi kelimelerin kendisinden 
değil hesaplama terminolojisi ile yakın yetişen bir çok insan kominikasyonun kar- 
maşıklığını minimize yapmak için en doğru tarzda kelimeleri kullanmak için yol- 
larından çıkarlar. Basit lisanın hesaplamada kullanıldığı gibi yanlış fikre kapılmayın, 
bu harfi harfine bir konu değildir, fakat tam bir ilimdir ve konuşmanın söz dizi- 
minden farklıdır, kominikasyonun yapısı çok doğrudur ve konuşturan veya iki ma- 
nalı değildir. 
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BASIC'in Temeli 


Hakikatte tüm ev bilgisayarları, BASIC diye bilinen lisanı kullanırlar. BASIC ile 
oldukça zor ve güçlü programlar yazılmaktadır. 


Bununla beraber hiç şüphe yok ki adı yeni başlayanlara, bilgisayar program lisan- 
larındaki labirentin başlangıç yeri gibi çekici gelecektir. 


BASIC müsade edilen komutlar ifade eden bir bilgisayar lisanıdır ve program ça- 
lışırken veriler üzerinde işlemleri gerçekleştirir. 5000-8000 kelime arasında olan nor- 
mal lisanın kelime haznesine karşılık BASIC'de kelime naznesi sadece 200 civarın- 
dadır. BASIC kullanarak yazılan programları, bu kelimelerin kullanılmasıyla ilgi- 
li katı kurallar takip etmek zorundadır. Dizilim kesindir ve harfler veya konuşma 
diline ait ifadelerle bilgisayarla ilişki kurmaya kalkılırsa sonuç şu olur; 


Syntax error 


Bu ilk gördüğünde o kadar bağlayıcı değildir. BASIC lisanı öncelikle sayıları (sa- 
yısal verileri) işletmek için tasarımlanmıştır. Kelimeler esasen matematiksel işlem- 
lerin (# /- vs.) uzantılarıdır ve yeni başlayanlar için en önemli kavram bilgisayarın 
sadece sayısal verilerle çalıştığı gerçeğini kavramasıdır. CPU (merkezi işlem biri- 
mi) entegre devresine uygulanan bilgiler sadece sayısal veriler şeklindedir. 


Numara Lütfen 


Eğer bilgisayar, Shakespeare'in tüm çalışmalarını depolamak için kullanılırsa sis- 
temin hiçbir yerinde tek bir harfe rastlayamazsınız. Her bilgi parçası önce bilgisa- 
yarın, yerleştirebileceği ve işleyebileceği gibi sayılara çevrilir. 


BASIC kelimeleri. sayılara çevirir sonra bilgisayar sadece toplama, çıkartma ve 
Boolean mantığını kullanarak verileri karşılaştırır ve belli vasıfları seçer diğer bir 
deyişle eğer bir sayı diğerinden büyük ve eşit olup olmadığını görmek için veya 
bir sayının belli bir kiriterde olup olmadığına göre tercih yapar. 


Program çalışması sırasında bilgisayar her işlemi basit evet /hayır sorularına çevirir. 
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Hesaplama hakkında ilk ve en önemli gerçeği elde etmediğiniz için bu işlemler size 
sıkıcı gelebilir. Bilgisayar öncelikle, basit ve tekrarlanan işleri kesin bir doğrulukla 
gerçekleştiren bir araçtır. BASIC, program formunda verilen talimatları çevirir ve 
CPU tarafından ele alınabilecek lisana tercüme eder. Bilgisayar mantığı tarafın- 
dan, binary notasyonunca “1” ve “0” diye gösterilen iki hal (evet veya hayır) an- 
laşılır. Boolean mantığında “*doğru” ve “yanlış” vardır, “belki”? veya “olabilir” 
gibi şeyler yoktur. 


Bu kesin iki hal arasındaki anahtarlama işlemi ““sayısal”” terimin aslıdır ve bazan 
“anahtarlama” isnat edilir. Tabiatta birçok işlem tamamen durgun bir halden di- 
öerine lineer bir ilerleme ile hareket eder. İdeal sayısal çevrede, bir halden diğerine 
anahtarlama yapılması zaman almaz fakat yarı iletken bilminin fiziği önemsiz bir 
gecikmenin olacağını söyler ki buna yayım gecikmesi denir. Bilgisayarın cevap ver- 
meden önce bilgilerin işlenmesi sırasında biraz zaman harcamasının nedeni bu ya- 
yım gecikmelerinin toplanmasıdır. 


Herhangi bir durumda bilgisayar ilk vazifenin neticesi üzerinde çalışmaya başla- 
madan önce bir işde sınırlı bir süre bekler, yani böyle yapay bir gecikme de vardır. 


Sayısal çalışma siyah ve beyazdır, erinin değişik gölgeleri yoluyla geçiş halinin bir 
önemi yoktur. Ters olarak lineer veya analog ilerleme grinin gölgesidir. 
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Eğer en son cevap 0 veya | ise “yaklaşık olarak doğru” olan ihtimali yoktur. Bil- 
sisayar, işleyebileceği sayıların boyutunun limitasyonundan dolayı sayısal veriyi 
ele alırken hata yapıyormuş gözükür, gereken aşırı büyük (boyut olarak) veri, mevcut 
vere uydurulmak için sıkıştırılabilir veya kesilirler. Örneğin yuvarlama hatalarına 
bir örnek verecek olursak: 999999999 sayısı, 1000000000 haline gelir. 


Diğer bir deyişle sadece 0 ve | sayıları mevcutsa |'den öteye nasıl sayarsınız? 


Bit ve Bayt 


Biz ondalık sisteme dayalı sayıları anlamaya alışmışızdır.Bu sistemde referans sa- 
yısı 10*dur. O'dan 9'a kadar 10 hane vardır. (Bunu 1-10 olarak kullanmak genelde 
tercih edilir) Sayıların Odan 1'e kadar sıralanmasının olduğu sistem binary siste- 
midir ve bu sistemin çalıştığı birimlere BİT (Binary diğit) denir. Bit'lerle ondalık 
notasyon arasındaki ilişki kolayca anlaşılabilir: 


Binary diğitlerin en büyük sayısını bildirmek için önüne sıfırlar koyarak sayıyı yap- 
mak aslında alışılmış bir şeydir. Örneğin: Ondalık 7 sayısı, beş bit notasyonu kul- 
lanarak; 


00111 binary olur. 


Binary sistemde figürler, verilen 2'nin üssünün varolup (IX, olmadığını (0j belirtici 
olarak kabul eder. 


901 

2-7-2 299) 
22-4-9x9-9(21) 
23—8— 2x2x2 — 2(22) 

24 — 16 — 2x2x2x92 — 2(23) 
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Bu durumda kolonlar şöyle gözükür: 


2* 2 g3 21 90 
1 0 0 1 1 
6 *$ 0-4 0 4 TI 4 D - 19 


Binary diğit bilgilerinden söz ederken daha kısa bir metod sağlamak için BAYT 
terimi kullanılır. Bayt 8 bitlik bilgidir. Bir bayt'ta depolanabilecek en yüksek bi- 
nary sayı IIIII1l1111, yani ondalık olarak 255'dir. Bu 256 gerçek değişikliği ima 
eder ki buna 00000000'da dahildir ve bilgisayar içim tam olarak geçerli bir veridir. 


Bilgisayar verileri 8 bit çarpımlarıyla idare etmeye eğilimlidir. 256 çok büyük bir 
sayı değildir, bu sebeple hafızayı idare edebilecek geçerli bir yol bulabilmek için 
bellek adresleme metodunu önceden hazırlamak için iki bayt kullanılır ki bu bir 
matris şeklindedir ve bu matrisin elemanlarının yerleştirilebilmesi için dikey ve ya- 
tay adresleri vardır. 


EE 
BE EE Gi 
GE EE 
Banamazanz 
ERE 
KE KE 


Bu matris O'dan 9'a kadar numaraları kullanarak (10 x 10Y'a kadar bilgi parçası- 
nın yerini bulabilir. 3,5 ve 5,5 pozisyonundaki parça Idir. 


Böylece 256 x 256'lık bir binary matris, yatay ve dikey kolonlarına 8 bit adresler 
kullanılarak 65536 yeri ayrı ayrı ele alabilir. Böylece bizim “0” ve “I'imiz 65536 
değişik elemandan bir tanesini tanımlayabilme kapasitesine ulaştı. 
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Binary için ikinci ifade yolu Kilobayt'tır, (Kbayt veya sadece K) ve bu 1024 bayt'- 
ur. 1024, ondalık kullanımdaki kilo terimine en yakın binary çarpımıdır. Bu olay 
bilgisayarları tarif ederken neden 64K denildiğini izah eder ki 64K'lık bir bilgisa- 
varın gerçek hafızası (belleği) 64 x 1024 — 65536 bayt'tır. 


BASIC vorumcusu bütün bu gerekli değiştirmeleri sizin için yapar ve binary siste- 
mi tam anlamadan da çok verimli bir programcı olmak mümkündür. Ama binary'- 
nin anlamını bilmek, bilgisayar ilminde çalışmalarınız ilerledikçe kaçınılmaz olarak 
ortaya çıkan birçok sihirli veya anlamlı sayıyı anlamanıza yardımcı olacaktır. 


Ancak... 


Basit ve ince olsa da binary notasyon bir bakışta kolayca okunamadığı için uzun 
ve hataya yatkındır. Binary ile bağlantılı birkaç tane daha sayma sistemi vardır. 
Bunlardan biri mikrobilgisayarlarda kullanılan HEX (hexadecimal'in kısa yazılı- 
şı) denilen sayı sistemidir. Bu sistemde sayı 16 tabanına göredir ve tek karakterle 
gösterilir: 


Ondalık 
0123456789101112131415 


HEX 
0123456789ABCDEF 


Her sistemi bir bayt'ın 8 bitini 4 bitlik 2 bloğa ayırabilir. 15 sayısı 4 bitlik bir 1111 


binary'dir. Birinci blok ““15?”in tam ünite sayısını, ikincisi ““kalanı” belirtir ve 
burada binary ile hex'in inceliği ortaya çıkar. 
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Binary notasvonunu tanıtan tabloyu yeniden ele alalım: 


ONDALIK BİNARY HEXADECIMAL 


0 
l 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
GC 
D 
E 
F 
I 


0 


Bir 8-bit sayı 11010110(&D6 hex)kendi içinde bölünebilir ve nibbles diye bilinen 
iki 4-bit sayı olarak ele alınır. Bu kitapda hex tabanlı sayılar ““&”? sembolüyle ta- 
natılacaktır. Örneğin: &D6 ve bu sayı tabanı, assembly dil programlama tekniğini 
kullanan programcıların çok kullandığı bir sayı tabanıdır. Bir assembiy dil prog- 
ramı, çoğu programcının doğrudan makina kodu programlarına en yakın geldiği 
programlamadır, çünkü assembiy dil programı programcıya, gerçek makina kodu 
sayılarını belirlemek için basit ““mnemonics” harfler kullanmasına izin verir. 


Hex kullanılırken, son sayıda 16 adedini elde etmek için önce ilk hanenin değeri 
üzerinde çalışmanız gerekir. Sonra toplam ondalık eşdeğerini elde etmek için ise 
hex notasyonunun ikinci yarısının gösterdiği kalanı eklemelisiniz. Burada D6'nın 
134-6 veya 136 olacağı gibi büyük bir yanılgıya teşvik vardır fakat sayı 
(13x16) 4(6)-214'dür. 
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Burada tek fark 10 ile çarpmanın 16 ile çarpmadan daha kolay olmasıdır ama çok 
pratik yapılırsa 16 ile de çarpma kolay gelecektir. 


Buraya kadar aklınız çok karışmadan geldinizse, bilgisayarın temel prensiplerini 
kavrama yolunda ilerliyorsunuz demektir. Belkide bu kadar telaş neden diye dü- 
şünüyorsunuz ve haklı da olabilirsiniz. 


Bir bilgisayar çok basit kavram ve fikirleri idare eden bir cihazdır, sadece bu işleri 
büyük bir sürat ile (bir saniyede milyonlarca kere) yapar ve girilen tüm verileri ha- 
tırlayabilecek muazzam bir kapasitesi vardır ve sonuca varıncaya kadar binlerce 
toplamanın binlerce ara sonuçlarını saklar. 


Eğer bilgisayarınızla ilgili teoriyi sürdürmek istiyorsanız, bilgisayarcılık hakkında 
binlerce kitap bulabilirsiniz. Bu kitaplardan bazıları aklınızı daha da karıştırır, fa- 
kat birkaç tanesi sayı sistemleriyle, bilgisayarınızın onları işlemesindeki temel iliş- 
kiyi size basit bir yolla anlatacaktır. 
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Bölüm 2: CPC 6128 Hakkında Daha Fazla 
Bilgi.... 


Bu bölüm 6128'in makina özel çehresi hakkında bilgi verecektir. Konuyla ilgili ön 
bilgilerin “TEMEL KURS”'da ve “AMSTRAD CPC 6128 BASIC KOMUTLA- 
RININ KOMPLE LİSTESİ” adlı derslerde bulabilirsiniz. 


Bu bölümün içeriği: 

* Karakter seti 

* ASCII 

* Değişkenler 

* Mantık 

* Kullanıcı tarafından tanımlanabilen karakterler 
* Yazı formatlanması 

* Pencereler 

* Kesintiler 

* Veri 

* Ses 

* Grafikler 

* Ekstra Belleği Kullanan Grafikler 


Karakter Biti.... 


6128'in tuş takımından bir yazı yazdığınızda tanınan harflerin, numaraların vs.'nin 
ekranda görüneceğini kabu etmemelisiniz. Daha önce bilgisayarınız daktilo olma- 
dığını tartışmıştık. Gerçekten meydana gelen, elektriksel anahtarlar kombinasyo- 
nuna basmanız sonucudur. Anahtarlara bastığınızda üretilen elektriksel sinyaller 
ekranda noktalardan meydana gelen şekillere, cihazın içindeki devreler tarafından 
çevrilirler. Biz bu nokta şekillerini; harf, sayı veya 6128'in karakter setindeki bir 
karekter olarak tanırız. 


Gördüğünüz gibi bazı karakterler tuş takımındaki tuşlara basmakla doğrudan çık- 
mazlar fakat sadece PRINT CHR$ (sayı) komutunu kullanarak görünmeleri sağ- 
lanabilir. Bunun sebebi bilgisayarda saklanan her eleman, veri kısımlarında “bayt” 
olarak depolanır ve daha önce bahsettiğimiz gibi bir bayt 256 değişik değer komsi- 
nasyonuna sahiptir. Bilgisayar sakladığı her karakter için en azından bir bütün bayt 
kullandığı için biz de standart daktilolarda 96 karakter olduğu gibi 256 mümkün 
kombinasyonun hepsini kullanabiliriz. 
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Standart karakterler “altset”” olarak bilinirler. Bu karakterler bilgisayar dünya- 
sında “ASCII” görüntü sistemi diye isimlendirilir ve “American Standart Code 
for Information Interchange”in baş harflerinden oluşmuştur. Esas amacı bir bil- 
gisayara gönderilen mesajın anlaşılır olmasını sağlamaktır. ““Referansınız İçin” adlı 
dersde ASCII kod sıralamasını, 6128'de bulunan ek karakterler ve bunların sayı- 
sal kodları listesini bulabilirsiniz. 


Oraya Nasıl Ulaşırız 


Artık siz karakter setini ekranda görüntüleyen program biliyor olmalısınız 


19 FORN-32 to 255 
20 PRINT CHR$in); 
30 NEXT 


Şimdi bu küçük programın mahiyetini inceleyelim. Önce dikkat edeceğimiz ilk nokta 
bilgisayara PRINT ““abcdefghijkimn....vs” komutu değilde PRINT CHR$(n) ko- 
mutunun verilmesidir. n sadece değişkeni belirten bir harftir. Bir değişken, prog- 
ramda verilen talimatlara göre değişen bilgisayar bilgi parçasıdır (n) harfinin seçimi 
rastgeledir, herhangi 'bir harfte de (harfler) olabilir.) 


Değişkenin Ne Olduğunu Nasıl Söyleyebilirsiniz. 


5 sayılı bir sabittir ve 4 ile 6 arasında gözükür. Böylece bir değişken değildir. Aynı 
şekilde n, harfide alfabede bir harf olduğundan bir sabittir. 


Peki bilgisayar bu ayırımı nasıl yapabildi? Eğer n harfi alfabetik karakter olarak 
söylenseydi, biz n harfini tırnak işareti içinde yazardık. örneğin ““n”, ve bilgisayar 
buna syntax error mesajını verirdi, çünkü FOR “nn” 32 to 255 komutunu anlaya- 
maz. 


Biz mi tırnak işaretsiz yazarak bilgisayara nin bir değişken olduğunu söyledik. 
BASIC'de FOR bildirisinin tanımı ondan sonra bir değişken gelmesini gerektirir, 
dolayısıyla bilgisayar FOR'un arkasından ne gelirse bunu değişken kabul eder. 


Biz aynı zamanda bilgisayara n —32 to 255 olduğunu da söyledik. Yani değişkenin 
sıralamasınıda açıkladık. Gerçekten de 32'de başlayıp 255'de biten bu seridir. 
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Bu değişkeni de açıkladıktan sonra onunla ne yapması gerektiğini de söylemeyiliz. 
Satır 20 bunu şu şekilde yapar. 


20 PRINT CHR$/n); 


Bu n'in son değeri ne ise bilgisayara bu değere karşılık hangi karakterin, pafıza- 
sında olduğunu bakmasını ve ekrana bu karakteri yazmasını söyler. 


Satır sonundaki noktalı virgül bilgisayarın satır atlamasını söylememek içindir. (Aksi 
taktirde her yeni karakteri yeni satırın ilk kolonuna yazar.) 


30'uncu satır bilgisayara n'in ilk değeriyle işlemi yaptıktan sonra (32) FOR'un bu- 
lunduğu yere dönmesini ve aynı şeyi nin bir sonraki değeri ile yapmasını söyler. 


Bu çevrim (Loop) olarak bilinir ve bilgisiyar programcılığının ve çalışmasının en 
temel ve hayati kavramlarından biridir. Bu uzun tekrarlanan dizileri elle yazmanı- 
zı önleyerek programınızda çabucak kullanmanızı sağlar. 


Bu FOR NEXT çevrimi açıklanan limit değere (255) ulaşınca operasyon durur ve 
bilgisayar 30. satırdan sonraki satıra bakar (fakat burada yok) ve sona erer ve di- 
rekt moda dönerek ready (hazır) yazarak komut bekler. 


Eğer siz RUN yazarsanız programı tekrar çalıştırabilirsiniz. Bunlar, artık bilgisa- 
yarın belleğinde emniyette olarak, siz silinmesini söyleyince veya elektrik kesilin- 
ceye (kapatıncaya) kadar saklar. 


Bu program, bilgisayar konusunda bir temel noktayı ortaya koyuyor. Örneğin 
bilgisayarın her yaptığı şey sayılarla bağlantılıdır. Bilgisayar alfabeyi ve bütün ka- 
rakter sesini, karakter için referans numarasını kullanarak görüntülenir. A tuşuna 
bastığınız zaman, bilgisayara A yazmasını söylemeyin fakat bilgisayara A harfini 
görüntülemek için gerekli sayısal bilgiyi içeren bellek kısmına bakmasını söyleyin. 
Bu verinin gerçek yeni tuş takımından bir tuşa basmakla harekete geçirilen bir sa- 
yısal kod ile tarif edilir. 


Her karakterin bağlantılı bir numarası (sayısı) vardır ve bunlar ““Referansınız İçin” 
adlı dersin 3. bölümünde listelenmiştir. 


Aynı şekilde görüntülenen karakterler harflerin ekrana yazılmasından başka bir 
şey yapmaz bunların hepsi sayılardan meydana gelmiştir. 
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Örneğin A'nın ASCII kodu 97'dir. Bilgisayar 97'yi de anlamak ve bu sayı ondalık 
sistemden bilgisayarın ilişki kurabileceği bir koda değiştirilmesi gerekir ki buna ge- 
nellikle Makine kodur denir. Bu özellik altında yatan prensipler bu dersin önceki 
bölümünde incelenmiştir. 


Önceleri günlük hayatımızda kullandığımız ondalık sayı notasyonunu bilgisayarın 
16'lik (hexadecimal) sistemine çevirmek işi yokuşa sürmek gibi görünecektir. 10 
temeline dayanan sayıları düşünmek o kadar tabiidir ki başka türlüsü çatal ve bı- 
çağı ters tutmaya çalışmak gibi olacaktır. 


Hex notasyonunu anlamak için belli bir zihinsel ustalığı kazanmış olmak gerekir 
ama bir kez bunu yaptıktan sonra bilgisayar konusunda bir sürü şey yerine otura- 
cak ve sayısal sistemin zarif yapısı açıkça görülecektir. 


Eğer binary ve hexadecimal sayı sistemlerinden hala emin değilseniz bu dersin |. 
bölümünü okumanızı tavsiye ederiz. 


Bilgisayar, A tuşuna basılmasını anlayacağı sayı tipine çevirdiğinde hafızasında be- 
lirtilen bölüme bakar ve sonuç karakteri tanımlayan bir başka sayı serisidir. Yani 
ekranda görüntülenen karakter, hafızada sayısal matris olarak depolanmış bir blok 
data (veri) oluşmuştur. 


meg 


ABLANK CHARACTER 


MATRIX (GRID) LOWER CASE a UPPER CASEA 
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Matris elemanları noktalardan oluşmuş kolonlar ve satırlardır. Karakter gereken 
dizideki noktaların açık veya kapalı hale çevrilmesiyle görüntülenir. Her noktayı 
bilgisayarın hafızasında olan veriler saptar. 6128'in görüntü tablosunda her ka- 
rakter matrisinin veya hücresinin 8 sıra (satır) ve 8 sütunu (kolonu) vardır ve 255”lik 
karakter setinde istediğiniz karakteri bulamazsınız bu dersin ilerki bölümlerinde 
bahsedilen SYMBOL tuş sözcüğünü kullanarak kendi karakterinizi tekrar takım- 
layabilirsiniz. 


Kullanıcı tarafından tanımlanan karakterler, rastgele bir düzende ayarlanmış O'dan 
64'e kadar noktadan oluşmuştur. Böylece bu matrisin bütün kombinasyonunu kul- 
lanan tam bir karakter seti bir çok değişik karakterler içerebilir. Buna bir de ka- 
rakter blokları yapmayı eklerseniz kullanıcı tarafından tanımlanan grafik ve karakter 
sayısı sadece sizin yaratıcılığınızın ve zamamınızla sınırlanmış olur. 


Mantık 


Bilgisayar ve hesap makinesi arasındaki en önemli fark bilgisayarın IF THEN gibi 
. mantıksal operasyonları yapabilmesidir. Bunu yapabilmek için mantık operatörü 
(işlemcisi) bit modelleri gibi uygulanan değerlerin üstünde ilerler. 


Mantık işlemcisinin arguman olarak bilinen iki girdisi vardır. 
argüman | < mantıksal işlemci > < argüman>| 


burada oarguman 
arguman Olmaz 
sayısal ifade 
bağlantılı ifade 
mantıksal ifade 


Mantıksal ifadedeki her iki arguman tam sayı olmak zorundadır ve tam sayı ola- 
rak bulunmayan arguman olursa ERROR 6 (hata 6) ile sonuçlanır. 


PRINT 19 AND 1990 
Sonuç yine 8'dir. Çünkü 19 ve 1990 sayıları iki tabanına çevrilir. 


1919 
111191999 
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AND işlemi her iki biti tek tek kontrol eder ve üstteki sıradaki bit ile alt sıradaki 
bit | olduğunda yanıt I'dir. 


0000001000 


Yukarıda görüldüğü gibi sonuç 8'dir. Mantıksal işlemci AND iki şart ardarda mevcut 
olduğunu saptamak için kullanılır. Şimdi size bir uygulama örneği: 


19 INPUT “Bugün ayın kaçı”; gün 

20 INPUT “Hangi aydayız”; ay 

39 IF gün—1 ANDAY—-1 THEN GOTO 54 
40 CLS:GOTO 10 

50 PRINT “Yeni yılınız kutlu olsun” 


OR ile bitler üstünde çalışılır. Her fki argümanın biti W olmadığı takdirde sonuç 
dir. 


PRINT 1999 OR 19 
1992 


Bit gösterimi: 


1910 
1111191990 


Sonuç: 
1111101010 
Ve aşağıdaki program örneğinde: 


19 CLS 

20 INPUT “Hangi aydaydız”; ay 

301F ay—12 ORay—1 OR ay-2 THEN 59 
40 GOTO 10 

50 PRINT “Havalar soğuk olmalı” 


NOT işlemcisi argüman içindeki her biti ters çevirir. (0, 1?dir ya da !, O'dır) 


19 CLS 

20 INPUT “Hangi aydayız”; ay 

30 IF NOT (ay -6 OR ay—7 OR ay -8) THEN © 
4) GOTO 19 

50 PRINT “Bodrum'a gidilecek zaman değil” 
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Ele alınacak diğer bir özellikde istediğiniz kadar sayıda mantıksal şartı ekleyebil- 
menizdir. (en fazla satır uzunluğu kadar) 


19 INPUT “Hangi aydayız ";gün 

20 INPUT “Kaçıncı aydayız ”;ay 

39 IF NOT (ay—12 OR ay—1) AND gün -29 THEN 59 

4) CLS:GOTO 19 

50 PRINT “Bu ay OCAK veya ARALIK değil fakat ŞUBAT 29 çekebilir” 


Bağlantılı ifadenin sonucu ya -I ya da O'dır. -1I için bit tanıtımı bütün tamsayı 
bitleri — I?dir; 0 için bütün tamsayı bitleri — O'dır. Bu tür iki argüman da mantık- 
sal işlem sonucu Doğru için -1, Yanlış için O'dır. Bunu yukarıdaki programa 60. 
satırı ilave ederek deneyiniz: 


60 PRINT NOT (ay—12 OR ay-1) 
70 PRINT (ay— 12 OR ay-—1) 


Program çalıştırıldığında gün için 29, ay için de 2 girersek 50. satırdaki cevap mey- 
dana gelir ve 60. ve 70. satırlardaki mantık ifadelerinden dönen esas değerler al- 
talta görüntülenecektir. 


Son olarak XOR'u görelim. Bu işlemde her iki argüman farklı olursa doğru (1) 
sonucu verilir. 


Aşağıdakiler doğruluk tablosu diye bilinen bu özellikleri listeler. 


Argüman A 1010 
Argüman B 0110 
AND işlemi 0010 
OR işlemi 1110 
XOR işlemi 1100 
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Kullanıcı Tarafından Tanımlanan Karakterler 


Binary sayılarının ilk uygulamalarından biri SYMBOL komutunu kullanarak ka- 
rakter tasarlamaktır. Eğer karakter 8 Xx 8 matrisi üzerine çiziliyorsa sekiz satırın 
herbiri binary sayıya çevrilir ve I konarak pixel son ink rengine ayarlanır. 0 konu- 
lursa pixel son sayfa rengine ayarlanır. O konularda pixel sayfa rengine ayarlana- 
rak görünmez yapılır. Bu sekiz sayı SYMBOL komutuna geçmiş olur. Bir ev ka- 
rakteri tanımlamak istersek: 


* - 00001000 - 808 - 8 - 8 
#kkk < 001111900 - &3C - 324164814 - 60 
* * - 01000010 - &42 - 64 *t2 : 66 
** » * z 10100101 - &A5 — 128 132 t4 #1 : 165 
* * - 10000001 - 881 -.128 *t1 < 129 
*#*  & < 10110101 - &B5 —- 128 *t32116 $#4 #1 < 181 
* kk * -< 10110001 - 8B1 - 128 t32116 *1 2 177 
#kkkk&kk > 11111111 < &FF < 128416413211618141241 - 255 


SYMBOL 249,8,60,66,165,129,181,177,255 veya; 
SYMBOL 240,08,83C,&42,8A5,881,&B5,8B1,&FF veya; 


SYMBOL 24, X00001000, X00111100, X01000919, &X10109191, 
X19000901, 10110101, 10110001, X11111111 


Komutları yukarıdaki 3 şekilde verebiliriz. Kullanıcı tarafından tanımlanan karak- 
terleri yazmak için ise şunu yazınız: 


PRINT CHR$ (249) 


Son olarak, karakterlerin bloklarını biraraya gruplandırmak için şöyle belirtebili- 
Tiz: 


semi$ — CHR$(240) - CHR$(249) 
PRINT semi$ 


veya; 


terrace$ — STRING$(15,244) 
PRINT terrace$ 
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Yazı Baskısı.... 


PRINT, programlamaya başlarken öğreneceğiniz ilk komuttur. PRINT söyleneni 
yapan komutlardan biridir. Bu komut ilk göründüğünden daha fazla şey kapsar. 
Mesela; nereye yazılacak ve nasıl yazacak gibi... 


Yazı Formatlaması 


PRINT komutunun kullanılabileceği birkaç yol vardır. En basiti, yazılacak parça- 
nın komutu takip etmesidir. Bu parça bir sayı, bir dizi veya bir değişken adı olabilir 


PRINT 3 

3 

PRINT “merhaba” 
merhaba 


a-5 
PRINT a 
5 


a$ — “amstrad” 
PRINT a$ 
amstrad 


Birkaç parça bir ayırıcı veya TAB veya SPC tarafından ayrılarak aynı PRINT cüm- 
lesinde yer alabilir. Ayırıcılar (;) veya (,) olabilir. (;) doğrudan yazının devamını sağlar. 
(0) ise bir sonraki alanda devamını sağlar. Başlangıç olanı (zone) genişliği 13*dür 
fakat ZONE komutu kullanılarak değiştirilebilir. 

PRINT 3;-4;5 

3-445 


PRINT “merhaba ”;“amstrad” 
merhaba amstrad 


PRINT “merhaba”,“amstrad” 


merhaba amstrad 
PRINT 3,-4,5 
3 -4 5 
ZONE 4 
PRINT 3,-4,5 

3 -4 5 


Negatif sayılar önündeki (—) işareti ile, pozitif sayılar ise önlerinde bir boşluk ile 
yazılırlar. Diziler, tırnak işareti içinde nasıl görüküyorlarsa ayen yazılırlar. 
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SPC, fonksiyonu sayısal ifadeyi parametre olarak alır ve ifade tarafından belirtilen 
sayıda boşluk bırakır. Eğer değeri negatif ise sıfır kabul edilir, eğer son kanal (pen- 
cere) genişliğinden büyükse kanal genişliği kabul edilir. 


PRINT SPC (5) “merhaba” 


merhaba 
xXx -3 
PRINT SPC (x43) “merhaba” 
merhaba 


TAB hemen hemen SPC'in aynısıdır, sadece istendiği kadar boşluk bırakır böylece 
yazılacak parça belirtilen kolonda gözükür. Parça listesi yazılmadan önce kanal yö- 
neticisi ( # ) ilave edilmemişse, bütün yazılmış çıkışların göründüğü kanal pencere 
O'dır. Diğer kanallar diğer pencereler için kullanılabilirler. Kanal 8 ve 9 özel durum- 
lardır. 8. kanaldan yazılan herhangi birşey, eğer yazıcı bağlı ise yazıcıda gözükür. 
Kanal 9, çıkışları disk veya kaset dosyasına yöneltir. Bununla beraber WRITE ko- 
mutu, bu amaçla, PRINT'in yerine kullanılmamalıdır. 


PRINT “merhaba” 
merhaba - pencere 0 


PRINT # 0, “merhaba” 
merhaba - yine pencere O 


PRINT #. 4, “merhaba” 
merhaba - pencere 4 
(ekranın en üstünde) 


PRINT # 8, “merhaba” 
merhaba - yazıcıda 
(eğer bağlanmışsa) 


TAB ve SPC basit yazı formatları için uygundur, fakat daha fazla detaylı format 
belirlemek için PRINT USING komutu uygun bir format kalıbıyla birlikte kullanı- 
labilir. Bir format kalıbı, formatın bir parçısının tipini belirten özel karakterler içe- 
ren karakter dizisinden ibarettir. Bu karakterlere “FORMAT ALAN 
BELİRTİCİLERİ” denir ve bu kitabın başlarında PRINT USING komutunun ta- 
rifinde detaylı olarak anlatılmıştır. Bununla beraber aşağıdaki örnekler bunların kul- 
lanılmasına biraz daha açıklık getirecektir. İlk önce dizilerin yazılması için elde olan 
formatlar şunlardır: 
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PRINT USING “NX a “test dizisi” 
testd 


,1p99 


işareti, karakter dizisinin ilk karakterini yazmak için kullanılabilir. 


PRINT USING “1” "test dizisi” 
t 


Fakat en kullanışlı dizi formatı “ ”dır. Bu gerekirse BASIC'in dizi katlama özelli- 
ğini önemsiz kılmak için kullanılır. Önceden belirlenmiş olarak, BASIC, herhangi 
bir diziyi eğer son satıra sıiğamayacak kadar uzunsa yeni bir satırın üzerine yazmaya 
başlar. PRINT USING “ ” bunu engellemek için kullanılabilir. 


(BORDER (1, sayfanı kenarlarını görmek için kullanın) 


MODE 1: LOCATE 39, 1:PRINT “çok uzun” 


— satır | 

çok uzun — satır 2 
MODE 1: LOCATE 39,1:PRINT USING “&”;““çok uzun” 

ço — satı | 

k uzun — satır 2 


Rakamların basılabilmesi için çok sayıda form vardır. Bunlardan en basiti, PRINT 
USING ©“ ###gg “dir. Kalıpta gözüken her “# ” için bir hane yazılır. 


PRINT USING “ ###### "123 
123 


Ondalık noktanın yeri, “.” kullanılarak ilave edilebilir. 


PRINT USING “ #A## . ##44y 12.45 
12.450090 


Ondalık noktadan önceki haneler üçlü gruplara, (binler, yüzler vs.) “,*” ondalık nok- 
tadan önce konularak ayrılabilir. 


PRINT USING “ ######44 ,- #AH# 7;123456.78 
123.456.7800 
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Hareketli dolar ve pound işaretleri formata ilave edilebilir. Örneğin: Dolar veya po- 
und işareti, sayı tüm formatı doldurmasa dahi sayının ilk hanesinden önce yazılma- 


lıdır. 


Bu, “$$” ve ““££”in kalıpta kullanılmasıyla harekete geçirilir. 


PRINT USING “$$ ##;7 
$7 


PRINT USING “$$ ## ”;351 
$351 


PRINT USING “EE #H## ,. ME 1234567 
£1,234.57 


Burada sonucun yuvarlanmasına dikkat ediniz. 


Sonucun önündeki boşluk, “** hareketli asteriks kullanılarak doldurulabilir. 


PRINT USING "**####.#";:12,22 
*kkk12.2 


Bu, dolar veya pound işareti ile birleştirilebilir. (O zaman tek bir para işareti kulla- 
nılır) örneğin: ““**$....” veya “***£....” 


Kalıbın başlangıcındaki bir ““ 4 ” işareti daima sonucun ilk hanesinden önce işaret 
konmasını belirtir. Kalıbın sonundaki “4 ”, arkasında işaret koyar. 


Bir “-” işareti sadece formatın sonunda yer alabilir ve eğer sayı negatif ise sonuna 
eksi işareti koyar. 


PRINT USING “4 ## 712 
si? 


PRINT USING “4 ## "12 
-12 


PRINT USING “ ## 4712 
124 


PRINT USING “ ## -” 12 
12- 


PRINT USING “ ## -12 
12 
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A“ 11197” seklindeki formak, kalıba; sayıları üstel format olarak yazmasını 
sağlar. 


PRINT USING “###.##1 11 1;123.4 
12.35E #01 


Sayılar için yazı formatlarını kullanırken eğer sayı belirtilen kalıptan çok uzunsa 
“o sembolü bu durumu belirtmek için sonuçtan önce yazılır ve sonuç, belirtilen 
kalıba uydurulmak için kısaltılmaz. 


PRINT USING “ 44444 "123456 
“0123456 


Pencere.... 


6128'in BASIC'i, 8 metin penceresinin seçilebileceği kapsamlı bir metot hazırla- 
mıştır. Metin ekranı sürücü komutlarından herhangi biri, bu pencerelerin birine 
yöneltilebilir. Pencere teşkil etmek için kullanılacak komut sadece WINDOW'dur. 
Bu komut 5 değer tarafından izlenir. 1.si isteğe bağlıdır ve hangi pencerenin ta- 
nımlanacağını belirtmekte kullanılır. Eğer kullanılmazsa pencere 0 kabul edilmiş 
demektir. Bu sayının önünde yer alan işareti kullanılan kanalı tanımlar. Sonraki 
4 sayı pencerertin sol, sağ, üst ve alt sınırlarını belirtir. Bu değerler kolon ve satır 
numaralarıdır. Bundan dolayı sol ve sağ değerler 1 ile 80, üst ve alt değerler ise 
I ile 25 arasında olmalıdır. 


Aşağıdaki örnek 4 numaralı pencereyi tanımlar ve 7. kolondan başlayan (sol) ve 
31. kolona kadar (sağ) devam eden ve 6. satırdan başlayan (üst) ve 18. satıra (alt) 
kadar devam eden bir penceredir. Şimdi bilgisayarı, resetleyin ve şu satırı yazın: 


WINDOW 4,7,31,6,18 
Bu komuttan sonra hiçbir şey gözükmedi fakat şunları yazarsanız: 


INK 3,9 
PAPER # 4,3 
CLS # 4 


Bu komutlar ekranda büyük yeşil bir komut görünmesine neden olur ve 4 nolu 
penceredir. CLS ve PAPER komutları 8 pencereden herhangi biriyle, kanal nu- 
marası ilave edilerek kullanılabilir. Kanal yöneticisinin yazılmaması komutun pen- 
cere 0 ile çalışmasına sebep olur. 
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Aşağıdaki her komut, komutların ele alınacağı pencereyi tanıyan kanal direktörü- 
nü içerir. 


CLS 
COPYCHR$ 
INPUT 
LINE INPUT 
LIST 
LOCATE 
PAPER 
PEN 

POS 
PRINT 
TAG 
TAGOFF 
VPOS 
WINDOW 
WRITE 


Ekrana koyduğunuz yeni yeşil pencere, önceki yazıların bazısı tarafından (0 nu- 
maralı pencereye yazılan) örtülebilir. 


Yazı herhangi bir pencereye, PRINT cümlesine kanal direktörünün ilavesiyle yön- 
lendirilir. 


PRINT # 4, “merhaba” 


Bu kelime yeşil dikdörtgenin üstünde gözükür ve aşağıdaki satırın yaptığının ter- 
sidir. 


PRINT “merhaba” 
Eğer bütün BASIC mesajlarının pencere 4'de gözükmesini istiyorsanız, daha ön- 
ceden belirlenmiş pencere ile (0) WINDOW SWAP komutu ile değiş-tokuş edilebilir. 


WINDOW SWAP 9,4 


“Ready” yeşil pencerede komutdan sonra yızılır. Şimdi şunları yazınız: 


PRINT # 4, “merhaba” 
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“merhaba” kelimesi WINDOW SWAP komutunun hemen altında gözükür ki bu 
pencere #'dür. Buradan da anlaşılıyor ki her pencerenin son yazı pozisyonu sakla- 
nır böylece WNDOW SWAP'dan sonra yazı yeni kanal 4'ün aşağısına yazılır. (Yu- 
karıdan başlayacağı yerde.) Aşağıdakileri deneyin: 


LOCATE 4,20,1 
PRINT “bu pencere 0'dır.” 
PRINT # 4, “bu pencere 4'dür” 


Pencere 0 mesajı PRINT satırından sonra gözükür, pencere 4 mesajı bütün ekra- 
nın en üst satırının ortasında gözükür. 


WINDOW komutundan önce bütün 8 pencere halihazırda ki ekranı kaplar. Bu 
MODE komutundan sonra da doğrudur. Böylece pencereleri kullanıldıktan sonra 
kürsör küçük bir pencerede sona erer. Aşağıdakini yazın. 


MODE 1 
WINDOW 20,21,7,18 
MO 
DE 
1 


MODE'un parçalara ayrılmasından dolayı telaş etmeyin, bu hala çalışır ve MO- 
DE ile 1 arasında boşluk bırakmayı unutmayın. 


Şimdi siz pencerelerin çalışması hakkında biraz bilgi sahibi oldunuz. Aşağıdaki kısa 
programı yazın. 


14 MODE 2 

20 FORn-4TO7 

30 WINDOW n,n * 1,n -6,n * 1,n *6 
40 PAPERN, n*#4 


50 CLSn 
60 FOR C—1 TO 2ğ9:NEXT c 
70 NEXTn 
Bu bir öncekinin üstünde oluşan & pencere meydana gctirir. Program çalışmasını 


bitirip “Ready” göründüğünde, tekrar (ENTERY'a basınız ve katlanan 0 nolu pen- 
verenin ekrandaki renkli bloklara nasıl etki yaptığını gördünüz. Bununla beraber 
bu renkli blokları kotlanabilir, diğer pencerelerin konumları gerçekten haraket et- 
mez. Aşağıdakini deneyiniz. 


CLS #4 
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Ve 4. pencerenin aynı pozisyonda olduğunu göreceksiniz. Yeni renklendirilmiş blok 
alttakini kapatır. Aşağıdakileri yazın ve farklılıkları izleyiniz. 


LIST 
LIST # 4 
LUST # 3 


WINDOW komutuyla ilgili başka şeyler bu bölümde final programında gösterile- 
cektir ki pencere boyutlarını ters sırada (sol ve sağ) belirtirseniz önemli değildir. 
Bu, eğer ilk parametrenin değeri ikincisinden büyükse BASIC otomatik olarak bo- 
yutları doğru dizilimde sıraya sokar demektir. Bu alt ve üst pencere boyutları için- 
de uygulanır. 


19 MODE 9 

20 a-14-RND*19:b—1-4RND*19 
30 c—14RND*24:d—14RND*24 
4ğ e—RND*15 

50 WINDOW a,b,c,d 

60 PAPER e:CLS 


70 GOTO 29 


Kesintiler.... 


AMSTRAD tipi bilgisayarın yazılımının en önemli yeniliği BASIC?den kesintileri 
idare edebilme yeteneğidir. Bu AMSTRAD'ın bir programın içinde birkaç tane ard 
arda fakat ayrı operasyonu gerçekleştirebilmesi anlamına gelir. Bu olanağa büyen. 
çok görevlilik denir ve AFTER ve EVERY komutlarının uygulanmasıyla kullanı- 
lır. 


Bu faaliyet sesin, kuyruk ve randevü faaliyetleriyle de açıkça ortaya konulmuştur. 


Zamanlamanın her yönü, bilgisayarın içindeki guartz kontrollü zamanlama siste- 
mi olan zamanlama ve senkronizasyon olaylarını idare eder ki görüntünün taran- 
ması ve işlemcinin zamanlanması da dahildir. Donanımdaki bir fonksiyon zamanla 
bağlantılı olduğundan bunu guartz ana saate kadar izlemek mümkündür. 


Yazılım tamamlayıcısı AFTER ve EVERY komutlarıdır ki kullanıcının AMSTRAD 
BASIC'e iyi bir yaklaşımını sağlar yani ne söylenirse yapar. Örneğin emirde za- 
manı yeniden ayarladıktan sonra program gösterilen alt-programa gönderilir ve 
burada tarif edilir. 


6128, gerçek bir zaman saati donatmıştır. AFTER komutu BASIC programının 
ileride çağıracağı alt-programı ayarlamasına izin verir. Dört geciktirme zamanla- 
yıcısı vardır ve her birinin bağlantılı alt-programı olabilir. Belirtilen zaman geçin- 
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ve programın son konumunda GOSUB verilmiş gibi alt-program otomatik olarak 
çağrılır. Alt programı RETURN komutunu kullanarak bittiği zaman esas prog- 
ram kaldığı yerden çalışmaya devam eder. EVERY komutu BASIC programının 
düzenli aralıklarla alt-programları çağırmasına imkan sağlar. Dört gecikme zaman- 
layıcısı vardır ve her birinin bağlantılı alt-programı olabilir. Zamanlayıcıların de- 
ğişik interrupt öncelikleri vardır. 3. zamanlayıcının en yüksek önceliği ve 0. 
zamanlayıcının en düşük önceliği vardır. (““Referansınız İçin”? adlı ders bakınız) 


18 MODE 1:n:14:x:RND4*490 

20 AFTER x,3:G0SUB 80 

30 EVERY 25,2 GOSUB 160 

40 EVERY 10,1 GOSUB 170 

50 PRINT "test your reflexes" 

60 PRINT "press the space bar."; 

70 IF flagz1 THEN END ELSE 70 

80 z-REMAIN(2) 

90 IF INKEY(47)--1 THEN 110 

100 SOUND 1,900:PRINT "cheat!":60TO 159 
110 SOUND 129,20:PRINT "NOW":t-TIME 
120 IF INKEY(47)--1 THEN 120 

130 PRINT "you took"; 

140 PRINT (TIME-t)/300;"seconds" 
150 CLEAR INPUT:flagz1:RETURN 

160 SOUND 1,0,50:PRINT ".";:RETURN 
170 nzntfl:IF n>26 THEN n:14 

180 INK 1T,n:RETURN 


Veri Kullanımı.... 


Bir programda daima başlangıçta girilecek bir seri bilgiler gerekir. Bu, her seferin- 
de kullanıcıya yazmasını söylemek yerine herhangi bir yolla bütün değerlerin giril- 
mesi iledaha mantıklı olur. Bu işlem READ ve DATA komutları tarafından önceden 
hazırlanır. READ kelimesi INPUT'a çok benzer, şöyle ki değişkenlerin değerleri- 
ni tesbit ederken kullanılır. Bir farkı tuş takımından her hatırlatmada girmek yeri- 
ne DATA cümlesinden, değerler okunur. Aşağıdaki iki örnek bunu göstermektedir. 


19 INPUT “Virgüllerle ayrılmış 3 sayı girin”;a,b,c 
20 PRINT “Sayılar şunlardır “ja; “ve” ;b; “ve”;c 


RUN 


19 READ a,b,c 
20 PRINT “sayılar şunlardır”; a; “ve”; b; 
30 DATA ,14,21 


INPUT cümlesinde olduğu gibi değişik parçalar virgüllerle ayrılırlar. 


365 


Sayısal değerlere ilave olarak sabit karakter dizileri veya her ikisinin de karışımıda 
olabilir. 


19 DIM a$(12) 

20 FORi—-9TO12 

30 READ ağli) 

40 NEXT 

50 FOR i-9 TO 12 

60 PRINT a$(i);“* 

70 NEXT 

80 DATA Bir, berber, bir, berbere, gel, beraber, berberistanda, bir, berber, dük- 


kanı, açalım, demiş 
RUN 


DATA”'nın dizi içerdiğine ve dizilerin çift tırnak (“*?) içine alınmadığına dikkat 
ediniz. Çift tırnak kullanmak dizileri ayırmak içindir ve DATA cümlesinde terci- 
he bağlıdır. Eğer dizinin kendisi virgül içeriyorsa o zaman çift tırnak işareti kul- 
lanmak faydalı olur. Şayet böyle bir durumda çift tırnak kullanılmazsa READ 
cümlesi DATA cümlesindeki virgülleri dizileri ayırmak için kullanılır. 


19 READ a$ 

20 WHİLE a$ < >“*” 

30 PRINT a$ 

40 READ a$ 

50 WEND 

60 DATA Eski, harap, temelinden meyilli ev rüzgarda yıkıldı 
70 DATA “Uzun, ince, siyah adam yüksek sesle öksürdü.” 
80 DATA * 

RUN 


60. satırdaki dizi virgüller içeriyor ve her bir kısım ayrı ayrı okunup yazılacak. 70. 
s atır ise çift tırnakla ayrılmış ve hepsi birden okunup yazılacak. 


Yukarıdaki örnek data (veri)nin birkaç satıra dağıtılabileceğini göstermektedir. RE- 
AD numara sırasına göre satırlarda (60, 78, 80 vs) çalışır. Aynı zamanda DATA 
cümlesi bilgileri, kendinden önce veya sonra olmasına bakmadan okur. 


Eğer program birden fazla READ cümlesi içeriyorsa, ikinci READ birincisinin dur- 
duğu yerden devam eder. Şövleki: 


19 DATA 123,456,789,321,654,2343 
20 FOR i-1105 

30 READ num 

40 total — total - num 
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50 NEXT 

60 READ total2 

70 1IF total —total2 THEN PRINT“'veri tamam” 
ELSE PRINT“data'da bir hata var” 

RUN 


10. satırda karışık veri gerektiriyorsa (karakter dizisi ve sayı) parçalar doğru oku- 
nacak kadar uzunlukta olmak kaydıyla karakter ve sayı dizilerini READ ve DA- 
TA cümlesinde birleştirebilirsiniz. örneğin: Eğer bir veri iki sayı dizisini takip eden 
bir karakter dizisi, ihtiva ediyorsa READ'ı iki sayısal değişken ve bir değişkeni 
takip etmelidir. 


19 DIM a(5),b(5),s$(5) 

20FORİ—- 1TO5 

30 READ akİ),b(i),s$(i) 

40 NEXT 

50 DATA 1,7,fred,3,9,jim,2,2,eric,4,6,peter,9,4,alfonzo 
60 FORi— 1TO5 

79 PRINT s$(i),“:”za(i) xb(i) 

80 NEXT 


Alternatif olarak, değişik tip veri olarak ayırmak isterseniz. 


19 DIM a(5),b(5),s$(5) 

20 FOR - 1105 

30 READ ali),b(i) 

40 NEXT 

5FORİ—- 1105 

60 READ s$fi) 

70 NEXT 

80 DATA 1,7,3,9,2,2,4,6,9,4 
90 DATA fred,jim,eric,peter,kamil 
190 FORİi—1TO5 

119 PRINT s$(i),““:”şa(i)# bi) 
120 NEXT 


Eğer 20. satırdaki FOR döngüsü değiştirilip: 


20 FOR iz 1 TO 4 yapılırsa, 60. satırın ilk iki küme teşebbüsü sonucu “9” ve 
“4” okunur.)Bu değerler tabii ki geçerli dizidir. Fakat sonuç planlandığı gibi de- 
ğildir. Programın uygun olarak çalışmasını zorlamak için bir metot da aşağıdaki 
komutları ilave etmektir. 
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15 RESTORE 84 
45 RESTORE 99 


RESTORE cümlesi veri (DATA)- okuma göstergesini belirtilen satıra götürür ve 
böylece bazı satırlara dayanarak veri bloklarının okunabilmesi için şartlı cümlede 
kullanılır. Örneğin: Çok aşamalı oyunlarda birkaç değişik ekran vardır ve her ek- 
ran için veri (data) bazı değişkenlere göre alınır. (““level”” gibi). Aşağıdaki bu tür 
program için bir örnektir. 


1004 REM section to draw the screen 

1010 IF level —1 THEN RESTORE 2019 
1929 IF level —2 THEN RESTORE 2519 
19039 IF level -3 THEN RESTORE 3419 
1949 FOR y—1TO 25 

1050 FOR x —1 TO 4ğ 

1060 READ char 

1979 LOCATE Xx ,y:PRINT CHR$/char); 

1980 NEXT x,y 


2000 REM DATA for screen 1 
2019 DATA 209,1H9,244,244,210,...etc. 


2500 REM DATA for screen 2 
2510DATA 100,103,245,243,242,...ete. 


3000 REM DATA for screen 3 
3010 DATA 190,191,192,193,194,...ete. 


DATA READ ve RESTORE'nin kullanılmasıyla ilgili diğer bir örnek de melodi 
çalan bir programdır. Ton periodu değerleri DATA cümlesinden okunabilir ve RES- 
TORE tekrar bölümlerini, müzik verisinin belirli bir kısmının başlangıcına götü- 
rerek, yapmakta kullanılır. 


10 FORİi—-1TO3 

20 RESTORE 100 

30 READ note 

40 WHILE note< > -1 

50 SOUND 1, note, 35 

60 READ note 

70 WEND 

80 NEXT 

90 SOUND 1,142,199 

190 DATA 95,95,142,127,119,146 


368 


119 DATA 95,95,119,95,95,119,95 
120 DATA 95,142,119,142,179,119 
130 DATA 142.142,196,119,127,-1 
RUN 


Müziğin Sesi.... 
6128'in ses ve zarf (envelop) komutları ilk bakışta sizi korkutabilir. Biraz pratikle 


siz birçok ses yapabilir ve hatta biligisayarınıza tüm bir medodiyi harmonikleriyle 
beraber çaldırabilirsiniz. 


Önce SOUND komutunun ilk 4 kısmına bir göz atalım. Bunlar: kanal numarası, 
ton periodu, notanın süresi ve volum (ses şiddeti)”dir. Her sayının hangi alt ve üst 
sınır değerlerine sahip olduğunu merak edebilirsiniz. 


Kanal numarası olan ilk kısmı şimdilik bırakalım çünkü oldukça karışıktır. İkinci 
sayı olan ton periyodu kısmı Odan 4095'e kadar olan herhangi bir sayı olabilir 
fakat bunlardan sadece birkaçı gerçekten tanımlanabilir müzik notalarını üretebi- 
lir. Bunlar ““Referansınız İçin” adlı dersin 5. bölümünde listelenmiştir. Eğer ton 
periyodu 0 ise hiçbir ton çalınmaz. Bu özellik gürültüyü kullanırken (daha ileride 
açıklanacaktır) faydalı olacaktır. 


SOUND komutunun 3. kısmı saniyenin yüzde biri birimlerde notanın kalış süresi- 
ni verir. Değeri | ile 32767 arasındadır. Bununla beraber eğer değer 0 ise notanın 
uzunluğu zarf tarafından hesaplanır. Eğer değer negatif-ise zarfın kaç defa çalın- 
ması gerektiğini belirtir. Yani -3 ses zarfını 3 defa tekrar et demektir. (Bu kısımda 
daha sonra anlatılacaktır.) 


SOUND komutunun 4. kısmı ses şiddetidir. Buranın değeri 0 ile 15 arasında ola- 
bilir, belirtilmemiş ise 12 olarak kabul edilir. Basit ses de, ses şiddeti, nota çalındı- 
ğı sürece sabit kalır. Ses şiddeti zarfı, bunu değiştirmek için kullanılırsa SOUND 
komutunun ses şiddeti kısmı notanın başlangıç değeri olarak alınır. 


Şimdi komutun kanal numarası kısmını ele alalım. Burayı tam olarak anlamak için 
binary sayıları biraz bilmek gerekir. Bir ses, eğer bilgisayar stereo amplifikatöre 
bağlanmışsa üç kanaldan biri üzerinden çalınabilir. Notanın hangi kanal veya ka- 
nalların üzerinden çalınacağını seçmek için şu sayılar kullanılır: 


I kanal A 
2 kanal B 
4 kanal C 
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Bir kanaldan daha fazla kanalda çalmak istiyorsanız gerekli kanal numaralarını 
ekleyiniz. Örneğin A ve C'de çalmak için 1 4-4— 5'i kullanın 


SOUND 5,284 


Belki siz niye C kanalı 3 yerine 4 olarak verildi diye merak ediyorsunuz. Bunun 
sebebi, binary sayı formuna uysun diye her sayının 2'nin üstü olarak teşkil edil- 
mesidir. (1-2 1 9,2-2 (1,42 1 2) 


Ondalık 5 sayısının eşdeğeri 1*4 -0*2-41*1 veya binary olarak 101'dir. Bu binary 
sayının her kolonunu C, B, A diye isimlendirirsek: 


CBA 
101 


Diğer bir deyişle C çalışıyor, B çalışmıyor, A çalışıyor. Eğer nota kanal A ve B'den 
çalınıyorsa: 


CBA 
011 


Binary 011, 0*4 $ 1*4 4 1*1 — 3ile aynıdır. Böylece SOUND komutu aşağıdaki 
gibi olur: 


SOUND 3,142 


Eğer bunu anlamadıysanız merak etmeyin. Kanal kombinasyonlarının, her biri- 
nin sayısını eklemekle elde edildiğini bilmeniz yeterlidir. 


Ne yazık ki kanal numarasında kullanılan birkaç değer daha vardır. 8, 16 ve 32 
sayıları sesin diğer kanallarla (sırasıyla A, B ve C) randevusunu belirtmek için kul- 
lanılır. Siz randevu sözüyle ne demek istendiğini merak edebilirsiniz. Şimdiye ka- 
dar ürettiğiniz sesler belirtilen kanaldan doğrudan doğruya gittiler: Şunu deneyiniz: 


SOUND 1,142,2000 
SOUND 1,9,200 


Eğer çok yavaş bir yazıcı değilseniz, bu komutlardan 2.'sini, 1.'sini bitirmeden ya- 
zabileceğinize dikkat edeceksiniz. Bunun sebebi, ses sisteminin her kanal için 5 ses 
komutun bir “kuyruk” içinde tutabilmesidir. Eğer bir sesin kanal A'da çalmasını 
ve sonra, A ve B'de iki sesin aynı anda çalmasını istiyorsak, A”'daki ikinci nota 
çalmaya hazır olmadan B”deki sesin başlamaması gerektiğini, yani bir kanalın di- 
gerini beklemesini bilgisayara bildirmenin bir yolunu bulmalıyız. İşte bu olay ran- 
devu olarak adlandırılır. Gerçekleştirilmesinin 2 yolu vardır: 
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SOUND 1,200,1900 
SOUND 3,909,200 


Burada ikinci nota A ve B'ye yöneltilmiştir. Bu nedenle A”'daki bitmeden başlaya- 
maz. Bu metodu (bir nota kombinasyonunu, birleşimini, çalacağı bütün kanallar 
serbest oluncaya kadar bekletmek) kullanılırken şu konuda sınırlıyız: aynı ses, ka- 
nalların herbirine yönelecektir. (örnekte 90 ile 200 A ve B'nin her ikisine de git- 
miştir.) Bir diğer metot da aşağıdaki yolu kullanmaktır. 


SOUND.1,200,2099 
SOUND 1 * 16,99,209 
SOUND 248,140,4090 


Burada A'daki ikinci nota B'deki sesle “randevu” laştırılmıştır. Gene değerler, 
binary sistemde anlamı olan tek basamaklı sayılarla ifade edilebilir: 


8-213, 16-214ve32-215 


Böylece kanal numarası, sütunların aşağıdaki şekilde adlandırıldığı, binary sistemde 
bir sayı haline getirilebilir: 


Randevu Randevu Randevu Çal Çal Çal 
C B A C B A 
32 topla 16topla 8topla 4topla 2topla | topla 


Bir notayı C'de çalmak ve A ile randevulaştırmak için şunu kullanacaksınız: 
0 7) Il 1 9 7) 


Bu binary sistemde 1100 sayısıdır ve 8 4- 4— 12'dir. Bu sebeple, 12 kanal numarası 
bilgisayara bir notayı kanal C'de çalmasını ve kanal A'da kendisi ile randevulaştı- 
rılmış notayı beklemesini bildirecektir. 


Eğer kanal numarasına 64 (2 | 6) katılırsa notanın tutulması gerektiğini gösterir. 
Gerçekten, RELEASE komutu kullanılmadan nota çalınmayacaktır. Son olarak 
kanal numarasına 128 (2 | R) katılırsa belirtilen kanalın kuyruğu silinecektir. Bundan 
dolayı, belirli bir kanalda uzun süre devam edecek bir ses başlatmışsanız, durdur- 
manız çabuk bir yolu kanalı silmektir. 


SOUND 1,248,3000 (5 dakika boyunca çalacaktır) 
SOUND 1 4128,0 (bu komut ile kısa zamanda durur) 
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Doğrudan kullanma halinde, uzun sesleri durdurmanın daha çabuk bir yolu (DEL) 
anahtarına, bir satırın başlangıcında basmaktır. Kısa ikaz “beep'i tüm ses kanalla- 
rını temizler. Artık seçeceğiniz 3 kanaldan herhangi birisine ses gönderebiliriz. Basit 
SOUND komutunun çıkardığı oldukça melodisiz “beep” sesinden biraz daha iyisi- 
ni üretmek herhalde güzel olacaktır. Bunu yapmanın yolu bir zarf ile (çaldığı kısa 
süre içinde notanın nasıl açılacağını ve kısılacağını gösteren bir modelle) sesi çal- 
maktır. Bir müzik aletinin çıkardığı nota, ses başlangıçta ses şiddetinin aniden art- 
tığı bir başlama tarzına sahiptir. Ses sonra bir müddet uzatıldığı daha aşağı seviyelere 
sonra yavaş yavaş sıfıra iner. Notalara SOUND komutuyla elde edilen bu tür zarf 
vermek mümkündür. ENV komutu bu amaçla kullanılır. 


ENV 1,5,3,4,5,-3,8 
SOUND 1,14,29,9,1 


ENV komutu birlikte kullanıldığı SOUND komutundan evvel gelir. Bir zarfı SO- 
UND komutunda kullanmak için, numarası SOUND komutunun beşinci bölümü- 
nünkü gibi alınmalıdır. Bu örnekte | sayısı zarfın numarasıdır. ENV komutundaki 
ilk sayı, tarif ettiği zarfın numarasıdır. ENV komutunun eğitici yönü, notanın ne 
kadar süreceği, ne kadar ses şiddetinde olacağı hakkında bilgiler içermesidir. Bu 
yüzden SOUND komutunun süreklilik ve ses şiddet kısımları O yapılmıştır. Yuka- 
rıda anlatılan zarf, sesin 5 adımda artmasına neden olur. Her adım ses şiddetini 
3 ile arttırır ve her adım saniyenin 4 yüzde biri uzunluğundadır. Sonra ses şiddeti 
5 adımda azaltılacaktır her adım saniyenin 8 yüzde biri sürecektir. Başka bir de- 
yişle, ilk sayı zarfın ifade edildiği numarayı belirtir. Bu sayıyı 3'er sayıdan oluşan 
2 grup takip eder. Bu grupların her birinde ilk sayı ses şiddetinin kaç adımla artıp 
azalacağını gösterir. 2. sayı bu adımların herbirinde ses şiddetinin ne kadar artıp 
azalacağını belirtir. 3. sayı ses şiddetinin her adımının ne kadar süreceğini belirtir. 


Her bölümün süreceği toplam süre ilk değerin (adım sayısı) 3. değer ile (durma 
süresi) çarpımına eşittir. Ses şiddetindeki toplam artma veya azalma, adım sayısı- 
nın adım büyüklüğü ile çarpımıdır. Çok bölümlü zarfın toplam uzunluğu ise bö- 
lümlerin herbirinin uzunluklarının taplamına eşittir. 


Başlangıçda ses şiddeti her zaman 0 olmak zorunda değildir. (G(OUND komutu ile 
yapıldığı gibi.) Yukarıdaki örnek yükselen ve sonra azalan bir işaret üretmiştir. 
Aşağıdaki ise önce azalan sonra artan bir örnektir: 


ENV 2,5,-2,1,20,0,1,10,1,1 
SOUND 1,248,9,15,2 


Bu zarfa 2 numarası verilmiştir ve 3 bölümü vardır. Birincide ses şiddeti (-2)'lik 
5 adımda azaltılmıştır. Yani her adımda 2 ölçü azalacaktır. Her adımın uzunluğu 
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saniyenin yüzde I'idir. 2. bölüm 20 adım içerir. Ama ses şiddetindeki her adım 
için 0 azalma veya artma vardır. (sabit ses şiddeti.) Yine her adımın uzunluğu sa- 
niyenin yüzde idir. Son olarak, 3. bölüm 10 adımdan oluşmuştur. Her biri ses 
şiddetini 1 arttırır. Buradada adımlar saniyenin yüzde Vi uzunluğundadır. 


SOUND komutu başlangıç ses şiddeti olarak 15 değerine sahiptir. Böylece ilk bö- 
lümden sonra ses şiddeti 5*e düşecek ve bu durum saniyenin 20 yüzde birlik müd- 
deti boyunca sabit tutulacaktır. Sonra zarfın son bölümünde 15'e yükseltilecektir. 


Zarfların şekillerini zihnimizde canlandırmak belki biraz zor gelebilir. Fakat böy- 
lece onları grafik kağıdına çizebilir ve ENV komutu için değerleri hesaplayabili- 
riz. Aşağıda şimdiye kadar anlatılan iki zarfın şekilleri gösterilmiştir: 


STEP COUNT 5 İ STEP COUNT 5 
STEP SİZE 3 i STEP SIZE -3 
PAUSE TIME 4 ' € 
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1 2 34 5 6 7 8 9101112 1314 1516 1718 1920212223242526272829303132 333435 1 


STEP COUNT 20 


ı 

ı 

Ebe sizi | STEP SIZE O l 

-2 | PAUSE TIME 1 i 
poe time 


Bir zarftaki maksimum bölüm sayısı 5'tir ve her bölüm 3 değer alabilir. Böylece 
ENV komutu en fazla 16 bölüme sahip olabilir. (Birinci, yani 1) zarftan (1'den 
15'e) hangisinin oluşturulduğunu gösteren dahil.) Eğer aşağı veya yukarı doğru adım- 
lar ses şiddetinin 15*den yukarı çıkmasına veya 0*dan aşağı inmesine neden olursa 
1$'in üstündeki adım 0 ve O'ın altındaki adım 15 alınır. 


ENV 3,9,5,20 
SOUND 1,142,9,9,3 


Bu basit zarf 9 adım üretecektir. Her adım ses şiddetini 5 ile arttırır ve her adım 
saniyenin 20 yüzde birlik süresi boyunca devam eder. Böylece ilk 3 adım sonunda 
ses şiddeti 15 olacaktır. Bu nedenle bir sonra ki adım, değeri 4. sonra 9 yapacak 
ve bu şekilde devam edecektir. Yan sayfadaki diyagram bu durumu göstermektedir: 
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STEP COUNT 9 
STEP SIZE 5 
PAUSE TIME 20 


Adım sayısını gösteren değerler O'dan 127'ye kadar olabilir. Adım büyüklüğü 
-128'den * 127'ye kadar olan değerleri alabilir. (Negatif değerler ses şiddetini azal- 
tır.) İki adım arasında durma süresi 0 ile 255 arasında olabilir. 


Artık kendine özgü bir şekil verecek bir ses şiddeti zarfı yapabiliriz. Aynı zamanda 
vibrato isimli müzik aletinde olduğu gibi, notaların bir anaton etrafında “titrediği” 
tipte şeyler içeren kendine has bir ton modeli tarif etmek isteyebiliriz. 


Bu, ses şiddeti zarflarının tarif edildiği yola çok yakın bir yolla gerçekleştirilebilir. 
Ton zarfları ENT komutu kullanılarak tarif edilir. Örneğin: 


ENT 1,5,1,1,5,-1,1 
SOUND 1,142,10,15,,1 


Bir ton zarfı SOUND komutunun içine, ton zarfının numarası SOUND komutu- 


nun 6. kısmına yazılarak, çağrılır. Burada da ENT komutu SOUND komutundan 
önce gelmelidir. 
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ENT ile ilgili ilk örnek şunları göstermektedir: Ton zarfının numarası 1'dir ve 5 
adım vardır. Her adım ton değeri | ile artacaktır ve her adım saniyenin yüzde Vidir. 
Zarfın diğer bölümü de 5 adıma sahiptir, ton değeri -1 ile azalır ve her adım sani- 
yenin yüzde Iidir. Böylece toplam uzunluk 5 45-10 olur. Bu uzunluğu SOUND 
komutunda belirtildiğine dikkat ediniz. Çünkü bir ton zarfı notanın çalacağı süre- 
yi belirlemez. (Ses şiddeti zarfının aksine.) Eğer SOUND komutunda kullanılan 
süre ton zarfının süresinden kısaysa, ton zarfının son kısmı yok olacaktır. Eğer 
büyükse, notanın son kısmı sabit bir tonla çalacaktır. Bu, ses şiddeti zarfının nota 
uzunluğunu belirlemek için kullanılmasında da uygulanır. (G(OUND komutunun 
ses şiddeti zarfı kısmında bir sayının yokluğuna dikkat ediniz. Bunun sebebi bu 
ses için bir ses şiddeti zarfı oluşturmamamızdır.) Ton zarflarının çoğunluğu, muh- 
temelen, beklenen nota uzunluğundan kısa olacaktır. Bu nedenle, bir ton zarfı müzik 
çaldığı sürece tekrarlamak üzere yapılabilir. Pozitif değerlisi SOUND komutunda 
kullanılması şart olan bir negatif zarf numarası tayin edilerek, bu sağlanabilir: 


ENT -5,4,1,1,4,-1,1 
SOUND 1,142,190,12,,5 


Bu, müzik üzerinde bir vibrato etkisi yapacaktır. Ton zarflarını tanımlarken 1.ton 
periyodu etrafında simetrik değişmeler sağlanabiliyorsa genellikle iyidir. Böylece 
nota tekrarlandığında, başlangıçtaki frekanstan (en alt ve en üst noktaları) uzak- 
larda kesilmeyecektir. 


ENT -6,3,1,1, 
SOUND 1,142,90,12,,6 


Bu tonun frekansının oldukça çarpıcı olarak azalacağına dikkat ediniz. Zarfın her 
tekrarında, ton süresi 3 ile artacak ve 30 kere (90/3) olacaktır. Bu tür etki “kuş 
şakıması” türünde sesler ve sirenler için yararlıdır. 


ENT -7,20,1,1,20,-1,1 
SOUND 1,140,400,12,,7 


END -8,60,-1,1,60,1,1 
SOund 1,199,489,12,,8 


Mümkün olan en fazla ton zarfı sayısı 15'tir. (1'den 15'e kadar) Negatif değer al- 
ması zarfın tekrarlanması gerektiğini gösterir. Adım sayısı (her 3'lük gruptaki ilk 
değer) 0 ile 239 arasında olabilir. Ses şiddeti zarfında olduğu gibi adım büyüklüğü 
-128 ile 127 arasındadır. Durma süresi de 0 ile 255 arasında olabilir. Yine, ENV ko- 
mutunda olduğu gibi, ENT komutu da herbiri 3 değerli en fazla beş bölüme sahip- 
tir. 
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Bir SOUND komutuna eklenebilecek son kısım 7. değerdir. Bu değer ses içinde 
kapsanacak gürültü seviyesidir. Sesin içinde bu tür gürültülere müsaade ederken 
akla takılabilecek nokta, sadece bir tek gürültü kanalı olması gerçeğidir. Böylece 
her müteakip gürültü tekrarında gürültü değeri bir öncekine eklenecektir. Gürül- 
tülertona değişik bir ses vermesi için eklenebilir veya tamamen tek başlarına kul- 
lanılabilirler. SOUND komutunun ton süresi (2. kısmı) 0 yapılarak, sadece 
gürültülerin kalması sağlanabilir. Bu işlem, vurma tipi sesler üretmekte kullanış- 
lıdır. Örneği deneyiniz: 


ENT -3,2,1,1,2,-1,1 
ENV 9,15,1,1,15,-1,1 
FOR a—1 TO 19: SOUND 1,4999,9,9,9,3,15: NEXT 


SOUND komutunun durma ve ses şiddeti kısımları, ses şiddeti zarfında istendiği 
gibi, O'da ayarlanmıştır. Artık SOUND ENV ve ENT komutlarını tam anlamıyla 
kullanabiliriz. Konuyla ilgili diğer komut ve fonksiyonlara şimdi göz atabiliriz. Ha- 
tırlayacaksınız, SOUND komutunun kanal numarasını anlatırken bu sayıya 64 ek- 
leyerek sesi, serbest bırakılıncaya kadar çalmadan bir dizide bekletebiliyorduk. Bir 
sesi serbest bırakmanın yolu RELEASE komutunu kullanmaktır. RELEASE ko- 
mutunu binary sistemde değeri olan bir sayı takip eder. Bu sayının her rakamı ser- 
best bırakılabilecek 3 kanaldan birini temsil eder. Sadece şu aşağıdakilerini 
anlamışsanız, konuyu tamamen kavramak gereksizdir. 


4 kanal C demektir 
2 kanal B demektir 
Il kanal A demektir 


Ve bir kanal kombinasyonu, her kanal için olan değerlerin toplanmasıyla serbest 
bırakılabilir. Yani 3 kanalın tümünde tutulmuş sesleri serbest bırakmak için aşağı- 
daki komut kullanılmalıdır: 


RELEASE 7 
Şu örneği deneyiniz: 
SOUND 1 464,90 
SOUND 24 64,140 
SOUND 4 464,215 
RELEASE 3:FOR t—1 TO 1000: NEXT: RELEASE 4 


Kanal A ve B'deki sesleri, çalması için serbest bırakan ilk RELEASE komutuna 
kadar SOUND komutlarından beklediğiniz sesler üretilmeyecektir. Bir müddet ge- 
cikmeden sonra kanal C€deki ses serbest kalacaktır. 
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Birden çok sesin randevulaştırıldığı bir başka metot daha vardır. Tutulduğunu be- 
lirten (64 eklenmiş) numaralı kuyruğa bir ses daha eklendiğinde yalnız tutulan ses 
değil bütün müteakip sesler de aynı kuyruğa yollanacaktır. Tutulmuş kuyruğa 4 
fazla ses daha gönderilirse, o zaman alet, kuyruk serbest bırakılıncaya kadar du- 
racaktır. Bu iş, belirli bir zaman aralığı sonrası çağrılan bir alt-program kullanıla- 
rak sağlanabilir. (AFTER veya EVERY kullanarak.) Ses sistemini kullanırken bu 
metot iyi bir yol değildir. Çünkü ses kuyruklarının tamamen dolması halinde ol- 
duğu gibi programın içerdiği komutlar zaman zaman durabilir. Bu durum birçok 
uzun sesin hızlı bir sıra ile kuyruğa eklenmesi halinde de geçerlidir. 


19 FORa—1TO8 

20 SOUND 1,140*a,200 
30 NEXT 

40 PRINT “merhaba” 


“merhaba” kelimesinin hemen gözükmeyeceğine dikkat ediniz. Bunun nedeni kuy- 
rukta serbest bir boşluk oluncaya kadar program akışının devam edememesidir. 


AFTER ve EVERY komutlarında ve ON BREAK GOSUB»ta kullanıldığı gibi, BA- 
SIC ara verilebilir bir mekanizmaya sahiptir. Bu size gerekli kuyrukta bir serbet 
boşluk oluştuğu zaman çağrılabilen alt-programla çalan bir ses tayin etme imkanı 
sağlar. örneği deneyiniz: 


19 a-0 

20 ON S0f(1) GOSUB 1009 

30 PRINT a; 

4) GOTO 34 

1000 a—-a4 14 

1914 SOUND 1,a,200 

1429 IF a 200 THEN ON SOf(1) GOSUB 1009 
1930 RETURN 

run 


SOUND komutu sadece kanal A'nın kuyruğu (1 numara) serbest bir boşluğa sa- 
hip olduğu zaman çağrılabilir. Bu durum 20. satırdaki komutla meydana çıkarıl- 
mıştır. Bu komut tayin edilmiş kuyrukta serbest bir boşluk oluştuğunda ses 
alt-programını çağıran ara verilebilir mekanizmayı başlangıç değerine getirir. 1020. 
satırdaki alt program ile ON SO GOSUB bir kere kullanıldıktan sonra tekrar baş- 
langıç durumuna getirilmiştir. Bu örnekte (a)'nın değeri 200'den küçük olduğun- 
da ses alt-programı kendini tekrar başlangıç durumuna getirmektedir. 


Ekranda nesnelerin yerini değiştiren, toplama yapan ve benzer işlemler yapan ta- 
mamlanmış bir programda her notayı sadece kuyrukta bir serbest boşluk olduğu 
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zaman çağıran bir alt-program sayesinde arka planda devamlı çalan bir müzik el- 
de edilebilir. Bu sayede program serbest bir boşluk gözükmesini beklerken dur- 
maması sağlanır. Bu müzik için nota değerleri DATA ifadelerinden okunmuşsa 
ses alt-programının kendini devamlı başlangıç haline getirmesi durduralabilir. 


OSO( ) GOSUB komutundaki parantezin içindeki sayı, serbest bir boşluk için 
denenecek kanal kuyruğuna bağlı olarak 1,2 veya 4 olabilir. 


Ses kanallarından herhangi birinin akış durumunu okumak için bir programla bir- 
likte kullanılabilen bir SO ( ) fonksiyonu daha vardır. Parantezin içindeki sayı 
yine 1,2 veya 4 olabilir ve bilginin hangi kanala geri gönderileceğini belirler. Fonk- 
siyon binnary sayı sistemine çevrilebilen tek basamaklı bir sayı gönderir. Bu sayı- 
ya BİT denir. Bunu anlamak için, bu sistemdeki sayıları biraz bilmek gerekmektedir. 
Geri gönderilen bu sayıların değerleri aşağıdaki anlamdadırlar: 


BİT ONDALIK DEĞERİANLAMI 

02 1,2,4 Kuyruktaki serbest boşlukların sayısı 

3 8 Kuyruğun başındaki nota, A ile randevula- 
şacaktır 

4 16 Kuyruğun başındaki nota, B ile randevulaşa- 
caktır 

5 32 Kuyruğun başındaki nota, C ile randevula- 
şacaktır 

6 64 Kuyruktaki en yüksek nota tutulmuş bit se- 
tine sahiptir 

7 128 Bir nota devamlı çalmaktadır. 


Aşağıdaki basit örneği deneyiniz: 


19 SOUND 2,244 


20 x -SOf(2) 
39 PRINT BIN$/ x) 
run 


Örnek, binary sistemdeki 19000100 sayısını yazacaktır. İçindeki 7 “bit'i, SO fonk- 
siyonu kullanıldığında kanalın devamlı çalacağını belirtir. Son 3 basamak 100, on- 
dalık düzene çevrildiğinde 4 değerini verecektir. Yani kuyrukta 4 boş giriş olduğunu 
belirtecektir. Bu fonksiyon bir program içinde verilen bir noktada kuyruğun du- 
rumunu incelemek için kullanılabilir. ON SO ( ) GOSUB komutunda komutun- 
da ise belirli olmayan bir noktada kuyruğun durumu incelenecektir. 
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Şimdiye kadar tüm örnekler sesin bir veya iki notası ile ilgiliydi. Bağımsız notalar- 
dan oluşan bir bütün grup oluşturmak, örneğin bir müzik içinde, gerekli notaları 
bir DATA ifadesi ile yükleme sonucunda elde edilebilir. Böylece bu notalar DA- 


TA 


komutundan, SOUND komutu ile okunabilir. 


19 FOR octave--1T0O2 

20 FOR x—1TO 7: REM notes per octave 
30 READ note 

40 SOUND 1, note/2 octave 

50 NEXT 

60 RESTORE 

70 NEXT 

80 DATA 426,379,358,319,234,253,239 

run 


Bu bölümdeki en son örnekte, beste ve ritim A ve B kanallarında sırayla randevu- 
laşarak çalmaktadır. Bu örnek DATA”'nın notayı, oktavı, uzunluğu ve randevu bil- 
gilerini içerecek şekilde oluşturulmasının yollarından birini açıklamaktadır: 
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REM line 190 gives treble clef tune 
REM line 200 gives bass clef tune 
DIM scaleX(12):FOR x4-1 TO T2:READ scaleZ(x4):NEXT 
ch1Z2:1:READ ch1$:ch24-1:READ ch2$ 
CLS 
Spd4-12 
scale$-" a-b b ctc d-e e ftf gtg" 
ENV 1,2,5,2,8,-1,10,10,0,15 
ENV 2,2,7,2,12,-1,10,10,0,15 
ENT --1/1,1/1/,2,-1,141/4141 
DEF FNM$(s$,s)-MID$(s$,s,1) 
ch17:1:G0SUB 200 
ch24:1:G0SUB 380 
IF ch14*tch24>0 THEN 140 
END 
DATA &8777,870c,&86a7,8647,&85ed,&598 
DATA &547,&84fc,&4b4,&8470,8431,83f4 
DATA 4cr4f4f1f1g1A1-B2C2f4g2g1A1-B6A2(r1f1g1f1g1a1- 
b1A1-b2C2g2A2g211g1a2g2f6e2c2e2c2g2e2c1-B1A2g2f4e4d 
8c4f3f1c2d4-b2fr2-B2A2g2f6e2gr4(4-B1a1f1-b1g2c2-b4a 
4g4fr6A2A2-B4-B2Ar2-B2A2g2f6e2g4(C4-B1A1f1-B1g2C2-B4 
A4g8f. 


190 


200 
210 
220 
230 


240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
44) 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
run 


DATA r4f4f8f4e4c4fr8f4e2f2e4d2e2d8c8c6e2f4g4g8e4f3f 
Ic4dr8g4cr4e4c6f2d4c4c8fr8-e4dr8g8c4e4c6f2d4c4c8f. 
REM send sound to channel A 

p1IS-FNM$(ch1$,ch14) 

IF p1$<>"r" THEN r17:-0:G0TO 240 
r14216:ch14:ch17*1t1:p1$—FNM$(ch1$,ch14) 


IF p1$:"." THEN ch1&:Ö:RETURN ELSE |(1Z-VAL(p1$) 
ch1Zzch1441 

n1$—FNM$(ch1$,ch14) 

ch14zch1211 


IF n1$:"4" OR n1$:"-" THEN 350 
n1$:" "4n1$ 
nd14-(T*#INSTR(scale$,LOWER$(n1$)))/2 


IF ASC(RIGHT$(n1$,1))>96 THEN 017-8 ELSE 014:16 
SOUND 14r14,scaleX(nd14)/015,Spd/&*1172,0,1,1 

ON SAa(1) GOSUB 200 

RETURN 

n1$zn1$*FNM$(ch1$,ch17) 

ch1&zch1411 

6G0TO 300 

REM send sound to channel B 
p2$-FNM$(ch2$,ch24) 

IF p2$<>"r" THEN r24-0:G0TO 420 
r24-8:ch24-ch241t1:p2$-FNm$(ch2$,ch24) 

IF p2$:"." THEN ch24-(:RETURN ELSE (24-VAL(p2$) 
ch24z:ch2411 

n2$—-FNM$(ch2$,ch24) 

ch24z:ch2411 

IF n2$:"4#" OR n2$:"-" THEN 530 

n2$>" "4n2$ 

nd2X (1*INSTR(scale$,LOWER$(n2$)))/2 

IF ASC(RIGHTS$(n2$,1))>96 THEN 024-4 ELSE 0274-8 
SOUND 2*4r24X,scale/(nd24)/024,Spd/4*127,0,2 

ON SA(2) GOSUB 380 

RETURN 

n2$-n2$*FNM$(ch2$,ch24) 

ch24:ch27411 

GOTO 480 
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Grafiklerle Konuşmak.... 


Bu bölüm kullanışlı grafik imkanlarını açıklamaktadır. İlk örnek önemli özellik- 
leri sırayla açıklayacak şekilde hazırlanmıştır. 


Başlarken, MODE'ları ve yol boyunca çakan renkleri kullanarak (20. satır), ekra- 
nı bir metin penceresine (40. satır) ve bir grafik penceresine (30. satır) çevireceğiz: 


19 REM mask and tag in window 

20 MODE 1:INK 2,19,4:INK 3,4,19 

30 ORIĞIN 440,100,449,649,100,300 
40 WINDOW 1,26,1,25 

59 CLG2 


Bu programı çalıştırdığınızda, ekranın sağ tarafının ortalarında kare şeklinde, pa- 
rıldayan bir renk göreceksiniz. Bu kare, 50. satırdaki 2 numaralı renkle renklendi- 
rilmiştir. Koordinatların orijini karenin sol alt köşesine kaymıştır. Mode komutu 
grafik kursörünü koordinaz eksenlerinin orijinine yerleştirilmiştir. (X—0, Y —0) 
Böylece 60. satır ile karede diyagonal bir çizgi çizebiliriz: 


60 DRAW 200,200,3 
Sonucu görmek için programı çalıştırıp şu satırı ekleyiniz: 
89 MOVE 9,2:FILL 3 


80. satır grafik kursörünü karenin iki yarısından bir tanesinin içine koyar ve INK 
3 ile doldurur. Doldurmanın sınırı, grafik penceresinin kenarıdır (burada aynı za- 
manda karenin kenarı). Grafik kalemiyle (3) çizilen herhangi birşey veya mürek- 
keple çizilmiş herhangi birşey doldurulabilir (yine 3). 


Artık son programı çalıştırınız. 


“doldurma?” köşeleri hakkındaki noktayı aydınlatmak için aşağıdaki 70. satırı ek- 
leyin. Dolduran miktarı, onu karenin yarısı ile sınırlayan diyagonal çizgi ile aynı 
renkte olduğunu göreceksiniz. 


70 GRAPHICS PEN 1 
run 


80. satırı 1 nolu renk ile doldurmak (FILL) üzere düzenleyin. Sonra bu son nokta- 
yı görmek için çalıştırıp tekrar eski haline getirin (FILL 3). 
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Programa aşağadaki satırları ekleyip çalıştırdığınızda bir kutunun çizildiğini göre- 
veksiniz: 


100 MOVE 20,20 
110 DRAW 189,24 
120 DRAW 180,180 
130 DRAW 29,184 
149 DRAW 20,20 
run 


70. satır nedeniyle kutu 1 nolu renkle, renklendirilecektir. 70. satırı kullanmaz- 
sak, o zaman bir (,1) eklemeliyiz. Bu 100. satırdaki MOVE komutunun 3. para- 
metresi veya 110. satırdaki DRAW komutunun 3. parametresi olacaktır. 


Noktaları Birleştirin.... 


Çizgileri kesintisiz olmayabilir, nokta nokta da olabilir. MASK komutu noktala- 
rın boyutunu belirlememizi sağlar. Model, her 8 pikselde tekrar edecektir. Her mü- 
teakip satır, son satırın bittiği yerden noktalamaya devam edecektir. Yeni bir MASK 
komutu (ihtimalen geçerli olan ile aynı parametrede) noktalama mantığını 8 pik- 
sellik modelin başına getirecektir. 


Gerçekten noktalama modeli, tek bayt'lık bir binary sayıdır. Bit seti mürekkebin 
nereye konulacağını gösterir. Örneğimizde, binary bir sabit kullanacağız (& x 'ile 
çağırılır). Bu, her 8 piksellik grubun ortasında 4 pikselin çizilmesini, diğer iki tara- 
fının çizilmemesini belirtmektedir. Bunun sonucunda 4 pikselin açık, 4'ünün ka- 
palı olduğu kesik kesik bir çizgi oluşacaktır. Elde etmek için şunu ekleyiniz: 


9g MASK & X00111190 
run 


Ama bir dakika bekleyiniz!. Bu program, beklediğimiz gibi köşeler etrafında düz- 
gün devamlı bir noktalama vermez. Bunun sebebi her köşe noktasının gerçekten, 
biri, bir satırın son pikselinde, ikincisi bir sonraki satırın ilk pikselinde olmak üze- 
re, iki defa işaretlenmesidir. 


Aşağıdaki yol, iyi bir yöntem değildir: 
115 MOVE 184,22 
125 MOVE 178,184 


135 MOVE 29,178 
run 
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Program istenilen sonucu verecektir. Ama daha kolay bir yol vardır: Bilgisayara 
her satırın ilk noktasını işaretlememesini söyleyen MAKS komutunun sonuna ikinci 
bir parametre eklemek. 90. satırı aşağıdaki gibi düzenleyin: 


99 MASK & X 0011119,9 
ve yeni eklediğiniz satırları siliniz: 


115 
125 
135 


Şimdi programı çalıştırınız. Bir kere daha noktalanmış kutu simetrik'tir. Eğer 2. 
MASK parametresi (,1) ise, komutun ilk piksel de dahil olmak üzere bütün satır- 
ları çizmek üzere uyarlanacağına dikkat ediniz. 


Şimdi çizginin tireleri arasına göz gezdiriniz. Sol üst üçgende olmayan ama sağ 
alt üçgende olan birşey vardır. Bu, 50. satırdaki CLG 2 komutuyla 2 nolu renge 
ayarlanan grafik kağıdıdır. Sol üst üçgende görünmez, çünkü arkadaki fonun ren- 
gindedir. 50. satırı şu şekilde değiştirin: 


59 CLG 2:GRAPHICS PAPER 9 


Programı tekrar çalıştırın. Paper şimdi kutunun her yerinde açıkça görülecektir. 
Grafik kağıdını görülebilir yapmak mümkündür, biz bunu “saydamlık?” diye isim- 
lendiriyoruz. Daha açıkcası, varolan resmin üzerine çizilmiş noktalı bir çizgi nok- 
talar arasındaki boşlukları koruyacaktır. GRAPHICS PEN komutuna (,1) 
parametresi ekliyerek grafik çizimi saydam yapılabilir (tekrar saydam olmayan hale 
(,0) parametresi ile çevrilebilir.) 70. satırı şöyle değiştiriniz: 


70 GRAPHICS PAPER 1,1 
run 


ve sonucu izleyiniz. 


Çizgi çizmek (nokta işaretlemek) gibi, grafik kursörünün pozisyonundaki normal 
metin karakterlerini yazmak da mümkündür. Bunun faydalı yönleri büyük bir doğ- 
rulukla (1 pikselde, 8 pikselde olduğundan daha fazla) karakterleri yerleştirebil- 
memiz ve grafik renk mod”larından istediğimizle karakterleri çizebilmemizdir. (İleri 
konulara bakınız.) 
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Grafik kursörünün bulunduğu yerlere karakterleri yazmak için, grafik kursörünü 
karakterin çizilmesini istediğiniz yerin sol üst köşesine getiriniz. Sonra normal ya- 
zıcı komutlarla takip edilen TAG komutunu kullanınız. Grafik kursörü otomatik 
olarak, her karakter çizildikten sonra 8 piksel sağa kayacaktır. Şunları ekleyiniz: 


160 MOVE 64,148 

170 TAG 

180 PRINT “OSMAN” 
190 TAGOFF 

run 


(BASIC ile verilen herhangi bir mesaj, TAG/TAGOFF düğmesinin durumuna bak- 
maksızın metin ekranına gönderilecektir. TAG atamasını, peşisıra gitmenin bittiği 
yerde iptal etmek iyi bir uygulamadır.) 


İsimden sonra gelenler nelerdir? Bunlar geri getirme vasıtası sembolü CHR$ (13) 
ve satır besleme CHR$ (10) sembolleridir. Grafik çizimi programları, ilk 32 AS- 
CLI karakterinin hepsini yazabilir, uyarlamalara çevirir. (Eğer metin ekranına gön- 
derildiklerinde, önlerinde CHR$(1) varsa.) Bunun sebebi ilk 32 kontrol işaretinin 
hemen hepsinin sadece metin ekranınca anlaşılabilir olmasıdır. Aynı özellik nede- 
niyle, örneğin, eğer grafik penceresinin sağ tarafına yığılım yaparsak, hiçbir kat- 
lanma oluşmayacaktır. 


Geri getirme vasıtası ve satır besleme sembolleri, PRINT ifadesini bir noktalı vir- 
gül ile bitirme tekniği ile gizli tutulacaktır. 


180 PRINT “OSMAN” 
run 


TAG kullanılarak grafik ekranına gönderilen metin, çizgi çizme gibi, aynı GRAP- 
HICS PEN komutlarının etkisindedir. Bu nedenle devamlı olarak, isim GRAP- 
HICS PEN Vin içinde yazılır ve saydamdır. Komut: 


159 GRAPHICS PEN 1,9 
run 


şeffaf olmayan kağıda çıkaracaktır. 


150 GRAPHICS PEN 9,1 
run 


iken ise, O nolu renk ile saydam olarak yazacaktır. Şimdi 150. satırı silin ve tekrar 
çalıştırın. Renk numarası Il - saydam mod (daha önce 70. satırda konulmuştu) 
grafik kalemine tekrar yerleştirilecektir. 
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Saydam Karakterler 


Karakterleri metin ekranına saydam olarak yazmakta mümkündür. İçerilen kont- 
rol birimlerinden bir tanesi kullanılır. Şunları ekleyiniz. 


200 PRINT 2,CHR$(22);CHRSH(1) 
210 LOCATE 2,32 14:PRINT 2,“******” 
220 LOCATE 2,32,14:PRINT 2,“-....” 
230 LOCATE 2,CHR$(22);CHR$(9) 

run 


200. satır akıntı 2'yi saydam mode'a ayarlar. Yıldız işaretlerini ““bastırmak” için 
satır altı tireleri””nin oluştuğuna dikkat ediniz. Böylece karşılık karakterler, hatta 
çok renkli bile, üretilebilmenin mümkün olduğu anlaşılır. 230. satır saydam mo- 
de'i bitirir. Akıntı 2'yi tekrar saydam olmayan mode'a ayarlar. 


Renk Modları 


Ekranın üzerindeki renk ile istenilen boyamayı birleştiren bir grafik renk modu 
kullanarak boyamak mümkündür. İşaretlenen grafik renkli (kalem ve kağıt) pixel 
için, eski rengin mantıklı bir birleşim oluşturarak her pixel için son renk üretilir. 
İçerilen mantıklı birleşimler XOR, AND ve OR'dur. Renk modu DRAW/DRAWR, 
PLOT/PLOTR ve MOVE/MOVER komutlarının 4. parametresi olarak ayarla- 
nabildiği gibi, bir CHR$(23) yani CHR$(modes) kontrol birimi dizisi yazarak 
(PRINT)da elde edilir. Her örnekte, I değeri XOR'u işaretlemeye, 2 değeri AND'ı 
işaretlemeye, 3 değeri OR'u işaretlemeye ayarlar. O değeri grafikrenginin olduğu 
gibi kullanıldığı “Hakim olan” moda ayarlar. Bir sonraki örnek XOR birleşimle- 
rinin kullanımını göstermektedir. OR genellikle kaplumbağa grafikleri olarak ad- 
landırılan grafiklerde kullanılır. Bunun sebebi, aynı modeli iki defa çizerek orijinal 
şekli koruyabilme özelliğine sahip olmasıdır. Bu nedenle kare çizimi programı iki 
defa icra edilmiştir. (110 ve 130. satırlarda) etiketlenmiş (TAG) yazmada iki defa 
icra edilmiştir. (170 ve 190. satırlarda) FRAME komutları, etkinin daha belli ol- 
ması için yeterli bekleme sağlanır. 90. satırda komutların ilk parametresiz kullanı- 
mına dikkat ediniz. Bu komutların tamamında geçerlidir ve basit olarak, ilk 
parametrenin son ayarlamasına değişmeden bırakır. 220. satırdaki MOVE komu- 
tunun 3. parametresi (,1) GRAPHICS PEN'i Ve ayarlar. (60.satırdaki ayarlanan 
3'ü geçersiz yaparak.) XOR modu, 230. satırdaki DRAWR komutunun 4. para- 
metresi olarak ayarlanmıştır. Bir kere daha kullanılmayan parametreye dikkat ediniz. 
İlk noktayı işaretleme etkisini hatırlatan bir şey, satır 90'daki MASK komutunu 
kaldırma sonucu görülebilir. Karenin köşeleri silinir, çünkü iki defa çizilmişlerdir. 
(Bir çizginin sonunda ve diğer çizginin başında) ve bu yüzden XOR sonucunda ol- 
muşlardır. 
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19 REM XOR ink modes 

20 MODE 1:INK 2,18:INK 3,4 

39 ORIĞIN 440,199,449,649,190,300 
49 WINDOW 1,26,1,25 

59 CLG 2:GRAPHICS PAPER 9 

60 DRAW 200,200,3 

79 MOVE 2,8:FILL 3 

80 ORIĞIN 400 ,9,440,649,9,400 

90 GRAPHICS PEN ,1:MASK ,9 
190 FOR Y-64 TO 318 STEP 2 
119 GOSUB 224 

120 FRAME:FRAME 

139 GOSUB 229 

149 NEXT 

159 TAG 

160 FORy—64 TO 318 STEP 2 
179 MOVE 96,Y:PRINT CHR$(244); 
184 FRAME:FRAME 

199 MOVE 96,y:PRINT CHR$(244); 
200 NEXT 

219 END 

220 MOVE 90,y,1 

230 DRAWR 29,9,,1 

240 DRAWR 49,20 

259 DRAWR -209,9 

260 DRAWR 9,-29 

270 RETURN 

run 


Canlılık 


Çeşitli mürekkepli renkleri devreye sokmakla bir canlılık etkisi üretmek olasıdır. 
Ekran hafızasının içerikleri değişmemesine rağmen, bir hareket varmış gibi görü- 
nür. Böyle bir örnek sisteminizin diskler paketinin 4. kısmındaki “Welcome” prog- 
ramında gösterilmiştir. (Bu etkiyi görmek için RUN “disc” yazınız.) Eğer canlı 
modellerin üst üste gelmesi isteniyorsa, bu örneğin basit palet açılımı yetersiz ola- 
caktır. Bir sonraki örnek, ekrana I|'den 4'e kadar numaralı yazmak için çeşitli mü- 
rekkepleri OR'lama işlemini kullanmaktadır. (Şekil, sol alt köşeden yazılmış 
karakteri iyice inceleyerek kararlaştırmıştır ve ne bulursa büyük blok grafiklerle 
gösterecektir.) Bu örnekle bir kontrol karakter dizi ile, OR modunun açılmasıyla, 
rakamlar sırasıyla 1,2,4 ve 8 mürekkepleri kullanarak yapacaklardır. 


100'den ilerdeki satırlar, gösterildiği bir anda, bir blok grafik numarasıyla sonuç- 
lanan bir matematiksel formüle bağlı olarak paleti çevirmektedir. Mürekkeple her 
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biri sırasıyla incelenerek ve istediğimiz ikilik unsuru içerip içermedikleri anlaşıla- 
rak hazırlanırlar. Örneğin 3 sayısı 4 nolu mürekkeple çizilmiştir. Bu nedenle 3 sa- 
yısını göstermek için, ikilik bir 4 içeren tüm mürekkeplerden görünür bir renk tayin 
etmeliyiz. Bu mürekkepler 


4(0100),5(0101),6(0110),7(0111,12(1100),13(1101),15(1111) 


Bu pratik uygulamada, canlandırma sırasında her adımda değiştirilmeleri gereken 
mürekkepler hesaplanmalıdır ve 180*den 200'e kadar olan satırlar daha başarılı 
bir program bölümüyle değiştirilmelidir. 


10 REM latch animation 

20 ON BREAK G0SUB 220 

30 FOR iz1 TO 15:INK i,26:NEXT 

40 m(1)21:m(2)-2:m(3)-4:m(4)-8 

50 MODE D:PRINT CHRS(23);CHR$(3);:TAG 

60 FOR Pz1 T0 4 

70 GRAPHICS PEN m(p),1 

80 LOCATE #1,1,25:PRINT#T1,CHRS(481p); 

90 FOR x-9 TO 7? 

100 FOR yz 9 TO 14 STEP 2 

110 IF TEST(x4*4,y)-0 THEN 140 

120 MOVE (xt6)432,(yt6)£16:PRINT CHR$(143); 
136 MOVE (xt6)432,(y17)X16:PRINT CHRS(143); 
140 NEXT y,x,p 

159 LOCATE #1,1,25:PRINT#1," "; 

160 FOR pz1 T0 4 

170 FOR iz 1 TO 25:FRAME:NEXT 

180 FOR i-9 TO 15 

190 IF Ci AND m(p))-0 THEN INK i,B ELSE INK i,26 
200 NEXT i,p 

210 GOTO 160 

220 INK 1,26 


Hareket Eden Renkli Düzlemler 


Yukarıdaki örnekte, grafikleri 1,2,4 ve 8 mürekkepleri ile yazılarak canlılık etkisi- 
nin renk değiştirme ile nasıl sağlandığını gördük. Eğer aynı mürekkepler kullanı- 
lırsa, fakat renkler değişik bir yolla hazırlansa da tamamen değişik bir etki ortaya 
çıkacaktı. Bu etki “Renk Düzlemleri” olarak adlandırılır. Aşağıdaki örnekte daha 
geniş gösterilmiştir. 
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REM mountains 

DEFINT a-z 

INK B,1:INK 1,26 

INK 2,6:1INK 3,6 

FOR iz4 TO Y:INK i,9:NEXT 

FOR 1:8 TO 15:INK i,20:NEXT 

MODE Ö:DEG:ORIGIN 0,150:CLG:MOVE 0,150 
FOR xz16 TO 640 STEP 16 


DRAW x,C0OS(x)x1504RND*100,4 

NEXT 

MOVE O,Ö:FILL 4 

cx:2175:G0SUB 320 

cxz525:G0SUB 520 

SYMBOL 252,0,0,8C,81F,830,87F,&FF 

SYMBOL 253,0,6,8E,&F2,2,8F2,&FE 

SYMBOL 254,0,&860,870,8&7F,87F,&7F,&7F 

SYMBOL 255,0,0,0,&F8,&EC,&FE,&FF 
pr$-CAR$(254)4CHR$(255) 
pI$-CHRS$S(252)14CHR$(253) 

TAG:t!':TIME 

FOR x:-32 TO 640 STEP 4 

x2:((608-x)x2)M0D 640:h1:-RND*19:hr-504SIN(Xx) 
GRAPHICS PEN 8,1:MOVE x,100*hr,,3:PRINT pr$; 
GRAPHICS PEN 2,1:MOVE x2,115th1,,3:PRINT pl$; 
IF (TEST(x2-2,115th1-12) AND 8):8 THEN 380 
IF TIME-t!<30 THEN 260 

TRAME:t!—TIME 

GRAPHICS PEN 7,1:MOVE x,100thr,,2:PRINT pr$; 
GRAPHICS PEN 13,1:MOVE x2,115th1,,2:PRINT pl$; 
NEXT 

G0OTO 210 

MOVE cx,108 

FOR x-0 TO 360 STEP 10 

DRAW CXx1#SIN(x)x501410XRND,1001C0S(x)4X251104£RND,1 
NEXT 

DRAW cx,100:MOVE cx,9ğ:FILL 1 

RETURN 

ENT -1,1,1,1 

SOUND 1,25,400,15,,1,15 

FOR yz100*hr TO -132 STEP -2 

GRAPHICS PEN 7,1:MOVE x,y,,2:PRINT pr$; 
GRAPHICS PEN 8,1:MOVE x,y-2,,3:PRINT pr$; 
NEXT 

G0OTO 70 
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Nasıl çalışacağını anlamak için bir kere daha mürekkep (INK) numarasını ikilik 
olarak kafanızda canlandırın. En yüksek INK numarası (15) ile başlama sonucu, 
“8” bit içeren bütün INK”ler (15'den 8'e) koyu maviye dönüşecektir. Sonra “4 bit 
içeren “7'den We) bütün INK”ler yeşile ayarlanacaktır. 2 ve 3 INK'leri 2 bit'e sa- 
hiptir ve kırmızıya ayarlanacaktır. Son olarak INK 1 parlak beyaza ayarlanırken 
INK 9 mavi olarak kalacaktır. 

Ekranda grafikler yerleşme OR'lanmışlardır. 230 ve 240 satırlara bakınız. Belirli 
bir pixel'deki, ekranda görülen renk, o noktadaki bileşkenin en belirgin bit'ince 
kararlaştırılacaktır. Bu nedenle, “daha belirgin” bir düzlemdeki bir tasvir her za- 
man, daha az belirgin” bir düzlemdeki bir tasviri karartacaktır. Arka plan gene 
aynı kalacaktır ve “daha belirgin? tasvir kaldırıldığında gene gözükecektir. Bir tas- 
viri kaldırmanın yolu 7,11,13 veya 14 INK numaralarıyla AND mürekkep modu- 
nu kullanarak onu işaretlemektir. Böylece sırasıyla 8,4,2 ve Win orijinal INKleri 
(mürekkepleri) kaldıracaktır. 280 ve 290 satırlara bakınız. 


Fazla Hafıza Kullanan Grafikler 


Bu bölümü tamamlamak için 6123'de RAM'”ın fazla 64K'sını kullanan, açıklayıcı 
bir “GRAFİK EKRAN DÜZENLEYİCİ” program sunuyoruz. 


18 'SCREEN DESİIĞNER by DAVID RADISIC 

20 ' copyright (c) AMSOFTI 1985 

30 ' 

44 ' Programı yazıp çalıştırmadan evvel RUN “BANKMAN” yazınız! 

DONE EEE EEE EEE EEE EEE EE 

60 ' 

70 ON ERROR GO0T0 2744 

80 DEFINT a-x 

9d MODE 1T:ch:127:cmnd:1:pn(0):0:pn(1)-26:pn(2)215:pn(3) 
-6:pn(4)-0:pn31:norxz1l:menuz1:zzz:HIMEM 

1080 DIM command$(22) 

110 norx$(9)2"Normal":norx$(1)-"XOR "“:norx$(2)-"Trans 
p':inorx$(3)-"XOR 

120 RESTORE:READ cmnds$(1),cmnds$(2):cmnd$:<CHR$(16)4CHR 
$(&7F)*tcmnds$(1)*tcmnds$(2) 

130 READ cmno:FOR iz1l TO cmno:READ command$(i):NEXT 

140 READ st$:1IF st$<>"xx" THEN cmnd$(cmnd)z<st$:cmndzcmn 
dt1:G0TO 140 

150 WINDOW #0,1,40,1,3:PAPER #0,0:PEN #0,1:CLS #9 

160 WINDOW #1,1,40,4,4:PAPER #1,3:PEN #1,1:CLS #1 

17/0 ORIGIN 0,0,0,640,0,334 

180 x-320:y:-200:MOVE x,y 

190 BORDER pn(4):FOR i-d TO 3:INK i,pn(i):NEXT 

200 MASK 255,0:PAPER D:PEN T:PAPER #1,3:PEN #1,1:GRAPHI 
CS PEN pn,norx 

210 1fF flag<>5 THEN 280 


RR MİMİ LĞLLİNELİLLLLLE İİİ MLİİLİNLLİLEEİİ İİİ nn 
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IF pn<2 THEN pnt$-CHR$(240):pxz(pnt1)413 ELSE IF pn 
<4 THEN pnt$:CHRS(241):px2(pn-1)413 ELSE pnt$-CHR$( 
243):px237 

LOCATE px,2:PRINT pnt$; 

LOCATE 1,1:PRINT USING" PEN Dİ: ## PEN 1 : ##"; 
pn(0);pn(1); 


LOCATE 29,2:PRINT USING"Border : ##";pn(4) 

LOCATE 1,3:PRINT USING" PEN 2 : ## PEN 3 : ##"; 
pn(2);pn(3); 

LOCATE px,2:PRINT " "; 

LOCATE #1,1,1:PRINT#T,USING"X :<##H# Y :HHHR "e 
XZYJ3PRINT #1,"Plot mode : ";norx$(norxt(undraw*2)) 


IF flag:-0 THEN GOSUB 226ğ 


GOSUB 970 

IF flag>8 THEN 390 

IF i$:"" THEN 390 
cmndzINSTR(cmnd$,i$):1IF cmnd:0 THEN 390 
IF cmnd:1 THEN CLG:x-320:y-200:G0TO 390 
IF cmnd:2 THEN RUN 70 

ON cmnd-2 GOSUB 1240,1410,1520,1640,1840,1860,1950, 
2020,2090,2120,2170,2200,2660,2660,2660,2660,2390,2 
330,2200 

IF tx:0 AND ty:0 THEN 200 

IF flag>0 THEN 440 

GOSUB 630 

GOSUB 680:FRAME:GOSUB 680 

G0TO 200 

MOVE tempx,tenpy,pn,1 

ON flag GOSUB 470,490,550,640 

G0TO 200 

PLOT x,y:G0SUB 630:PLOT Xx,y 

RETURN 

DRAW tempxtx,tempy:DRAW tempxtx,tempyty 
DRAW tempx,tempyty:DRAW tempx,tempy 
GOSUB 630 

DRAW tempxtx,tempy:DRAW tempxtx,tempyty 
DRAW tempx,tempyty:DRAW tempx,tempy 
RETURN 

MOVE tempx,tempy:DRAWR Xx,y 

IF trisidezğ THEN 580 

DRAW tempxx,tempyy:DRAW tempx,tempy 
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580 GOSUB 630 

590 MOVE tempx,tempy:DRAW tempxtx,tempyty 

600 IF trisidez0 THEN RETURN 

610 DRAW tempxx,tempyy:DRAW tempx,tempy 

620 RETURN 

630 xzxttx:yzytty:RETURN 

640 MOVE tempx,tempy:DRAW Xx,y 

650 GOSUB 630 

660 MOVE tempx,tempy:DRAW Xx,y 

670 RETURN 

680 ' draw and undraw cursor 

690 IF flagz-5 THEN RETURN 

700 MASK 255,1 

710 IF flag>1 THEN xxztempxtx:yyztempyty ELSE xx-x:yyzy 

720 IF flagz4 THEN xxz-x:yyzy 

730 IF flagz1 THEN xxzx:yy-y 

740 IF undrawz1 THEN 820 

750 GOSUB 790 

760 MASK 255,0 

770 IF i$-" " THEN GOSUB 2150:i1$-"" 

780 RETURN 

790 MOVE xx-4,yy,pn,1T:DRAW xx*t4â,yy 

800 MOVE xx,yy-4:DRAW xx,yyt4 

810 MOVE xx,yy,,xorn:RETURN 

820 nxz:1:GOSUB 1220 

830 FRAME:GOSUB 1220 

840 IF i$-" " THEN nxznorx:GRAPHICS PEN pn,1:GOSUB 1220 

850 i$-"" 

860 IF flag<>6 THEN 760 

870 IF moved-0 AND j$<>"" AND (j$<CHRS$(240) OR j$>CHR$( 
247)) THEN chzASC(j$):moved-1 

880 IF moved-0 THEN RETURN 

890 LOCATE 5,2 

900 FOR izch-5 TO cht5 

910 PEN ABS(i<>ch)11 

920 ch$-CHRS$S(1)*CHR$(ABS(1*1256)M0D 256) 

930 IF chi THEN PRINT" "ch$" "; ELSE PRINT ch$; 

940 NEXT 

950 PEN T:PRINT" se"eh” 

960 GOTO 760 

970 ty-O:tx-0:GOSUB 680:FRAME:GOSUB 680 

980 IF INKEY(0)<>-1 OR INKEY(72)<>-1 THEN ty-16 

990 IF INKEY(2)<>-1 OR INKEY(73)<>-1 THEN ty--16 

1000 IF INKEY(8)<>-1 OR INKEY(74)<>-1 THEN tx:-16 
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IF INKEY(1)<>-1 OR INKEY(75)<>-1 THEN txz16 

IF INKEY(21)<>-1 OR INKEY(76)<>-1 THEN tx:tx/8:ty: 
ty/8 

IF txz0 AND ty-0 THEN moved-0 ELSE movedz:1 
J$ZINKEY$:i$-UPPER$(j$) 

IF (i$z" " OR i$—CHRS$(13)) AND flag>0 THEN 1090 
IF flagz5 THEN 1120 

IF flagz6 THEN 1170 

RETURN 

ON flag GOSUB 1240,1410,1640,1860,1950,2020 
152"" 

RETURN 

IF moved-0 THEN RETURN 

IF tx>2 THEN pnz(pnt1) MOD 5 ELSE IF tx<-2 THEN pn 
-ABS((pn<1))45-1$pn 

IF ty>2 THEN pn(pn)z(pn(pn)t1) MOD 27 ELSE IF ty<- 
2 THEN pn(pn)-ABS((pn(pn)<1))4£27-1*pn(pn) 
GRAPHICS PEN pn:PEN #1,pn 

tx20:ty-0:BORDER pn(pn):RETURN 

IF tx<B THEN chzABS(cht255) MOD 256 

IF ty<9 THEN chzABS(cht246) MOD 256 

IF tx>0 THEN chz(cht1) MOD 256 

IF ty>0 THEN chz(cht10) MOD 256 
txz0:ty:0:RETURN 

TAG:MOVE xx-8,yyt6,pn,nx:PRINT CHR$(ch);:TAGOFF 
RETURN 

© G 

IF flagz1 THEN 1290 

roz1:GOSUB 2240 

tempxzx:tempyzy:flag-1 

RETURN 

IF tempxzx AND tempyzy THEN 1390 

PLOT Xx,y,,1 
tixZzMAX(x,tempx)-MIN(Ctempx,x):tiyzMAX(y,tempy)-MIN 
(tempy,y) 

tizSaR((tix12)1(tiy72)) 

ORIGIN tempx,tempy 

PLOT 0,0,pn,0:MOVE İ,-ti 

FOR z-0 TO PI*240.01 STEP P1/(ti/2) 

DRAW SIN(z*1PI)4#ti,C0S(ztPI)4*ti,pn,norx 

NEXT z 

ORIGIN 0,0 
xztempx:yztempy:tempx-Ü:tempy-0:flag-0 

RETURN 
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1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 


1500 
151ğ 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 


1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1818 
1820 


' B 

IF flagz2 THEN 1470 

roz2:G0OSUB 2240 

tempx-x:tempyz-y:flagz2 

xz0:y-0 

RETURN 

IF norxz1 THEN 1500 

MOVE tempx,tempy:DRAW tempxtx,tempy,,norx 
DRAW tempxtx,tempyty:DRAW tempx,tempyty:DRAW tempx 
,tempy 

xztempx:yztempy:flag-0 

RETURN 

' F 

ro-3:GOSUB 2240 

GOSUB 1620:1IF i$-" " THEN 1600 
edgecolzVAL(i1i$) 

ro-4:GOSUB 2240 

GOSUB 1620:1IF i$-" " THEN 1600 
fillerzVAL(1$) 

MOVE x,y,edgecol:FILL filler 


flag-0:i$-"" 

RETURN 

i$ZINKEY$:IF (1$<"9g" OR i$>"3") AND i$<>" " THEN 1 
620 

RETURN 

li 

IF flag-3 THEN 1700 


flag-3:ro-5:G0SUB 2240 

tempx-x:tempyzy 

xz0:y-0 

RETURN 

IF triside<>0 THEN 1770 

r0-6:G0OSUB 2240 

MOVE Ö,İ,pn,1:G0SUB 590 
tempxxztempxtx:tempyyztempyty:x:x/2:y-20 
trisidez1 

GOSUB 550:GOSUB 590 

RETURN 

IF norxz1 THEN 1800 

MOVE tempxx,tempyy,,norx:DRAW tempx,tempy 
DRAW tempxtx,tempyty:DRAW tempxx,tempyy 
tempxxzÜ:tempyyz0 
xztempx:yztempy:triside-f 
tempx-Ü:tempy:0:flag-0 


RETURN 

'0 

norxzTl:undrawzundraw XOR T:RETURN 
ER 

IF flagz4 THEN 1910 

roz7:G0OSUB 2240 
tempxz-x:tempyzy:flagz4 

RETURN 

IF norxz1 THEN 1930 

MOVE tempx,tempy,,norx:DRAW x,y 
xztempx:yztempy:flagzf 

RETURN 

dl 

IF flagz5 THEN flag:0:CLS:INK 3,tmpcol:INK pn,col: 
GOTO 1990 

CLS:flagz:5:BORDER pn(pn) 

RETURN 

FOR iz TO 3:INK i,pn(i):NEXT:BORDER pn(4) 
IF pnz4 THEN pnz1 

CLS:RETURN 

A 

IF flagz6 THEN 2070 
tempxzÖ:tempyz-0:CcLs$s 
undraw-1T:flag-6ö:norxz1T:moved-1 
RETURN 

flag-9 

RETURN 

'N 

norxzG 

RETURN 

“E 

GRAPHICS PEN pn,0G:TAG:MOVE xx-8,yyt6,,Ü:PRINT " "; 
:TAGOFF 

RETURN 

'<SPACE> 

PLOT x,y,pn,norx:RETURN 

-X 

norxz1 

RETURN 

' M 

menuzmenu MOD 241 

GOSUB 226öĞ:RETURN 
i$ZUPPER$(INKEY$):IF 1$-"" OR INSTR(ser$,i$)-0 THE 
N 2230 ELSE RETURN 
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CLS:undrawz-0:PRINT cmnd$(ro);:LOCATE 1,3:PRINT"<SP 
ACE> "“;:IF roz:3 OR roz4 THEN PRINT"To exit" 
RETURN 

CLS:flagz-1 

FOR i-1 TO LEN(cmnds$(menu)) 
pszitABS(menuz2)*LEN(cmnds$(1)) 

PEN T:PRINT"<"MID$(cmnds$(menu),i,1)">"MID$(comman 
d$(ps),2,4)" "; 

NEXT 

PRINT"<CLR> <DEL> <SPACE>"; 

RETURN 

1 6 

GOSUB 2460:1IF filename$-"" THEN 2370 

GOSUB 2550 

SAVE filename$,b,&Cc000,84000 

GOSUB 2260 

RETURN 

'R 

GOSUB 2460:1IF filename$-"" THEN 2440 

GOSUB 2730 

LOAD filename$,&cCc090 

GOSUB 2570 

GOSUB 2260 

RETURN 

CLS:LOCATE 10,3:PRINT"<RETURN> to Abort!"; 
LOCATE 1,1:PRINT"Enter Filename :"; 

INPUT "",filename$:1IF filename$-"" THEN RETURN 
nzINSTR(filename$,"."):1IF n-0 THEN 2520 

IF nz1 THEN 2460 
filename$-LEFT$(filename$,n-1) 
filename$zLEFT$(filename$,8)*".scn" 

CLS 

RETURN 

FOR i-ğ TO 4:POKE &C000*ti,pnCi):NEXT 

RETURN 

FOR i-0 TO 4&:pn(i)zPEEK(&C000*i) MOD 27:NEXT 
cn-Ö:FOR i-ğ TO 2:1IF pn(i)zpn(1t1) THEN cnzcnt1 
NEXT:IF cn:3 THEN 2630 

FOR iz0 TO 3:INK i,pn(Ci):NEXT 

BORDER pn(4):pnz:1:GRAPHICS PEN pn 

RETURN 
pn(0)-0:pn(1)-26:pn(2):15:pn(3)-6:pn(4)-0 
GOTO 2600 

VAZ 23, G4 


2660 CLS:PRINT"DO you wish to <S>tore":PRINT TAB(16)"<R 
>etrieve":PRINT TAB(13)"or <E>xchange the screen 
gn 

2670 ser$-“"SRE"#CHR$(13):GOSUB 2230:1IF i$-CHR$(13) THEN 

2260 
2680 bnk2:(cmnd-13):bnk131 
2690 IF i$-"S" THEN CLS:GOSUB 2550:İSCREENCOPY,bnk2,bnk 


1 
2700 IF iS$-"R" THEN GOSUB 2730:İSCREENCOPY,bnk1,bnk2:60 
SUB 2570 


2710 IF i$-"E" THEN CLS:GOSUB 2730:GOSUB 2550:İSCREENSW 
AP,bnk2,bnk1:G0SUB 2570 

2720 GOSUB 2260:RETURN 

2730 FOR i-9 TO 3:INK i,8:NEXT:BORDER B:RETURN 

2740 CLS:GOSUB 26öğ0Ğ:RESUME 2260 

2750 DATA "CBFTALIANEXM","1234RSM" 

2760 DATA 19,Circle,"Box ","Fill ",Triangle,Alternate, 
"Line ","Inks ",ASCII,Normal,Erase,"Xor ","Menu " 
,'Ist "“,"2nd "“,"3rd ","âth ",Restore,"Save "," 
Menu " 

2/10 DATA Circle,Box,Edge colour,Filler colour,Triancle 

1,Triangle 2,Line,** 


Bu programda kullanılan iki RSX komutu SCREENCOPY ve SCREENSWAP, 
sisteminizin diskler paketinin 1. kısmındaki “Bank Manager” yardımcı ünitesince 
hazırlanmıştır. Komutlar, uygun hafıza blokları arasındaki ve hafızanın iki 64K”lık 
kümesi arasındaki çeşitli görüntülerin kopyasının çıkartılmasını ve değiştirilmesi- 
ni kolaylaştırır. 

Bu nedenle “Ekran Düzenleyici Program'ı çalıştarmadan önce “Bank Manager” 
yardımcı ünitesini çalıştırmalısınız. Bunu yapmak için de, sisteminizin diskler pa- 
ketinin 1. kısmını yerleştiriniz ve şunları yazınız. 


run “bankman” 


Şimdi Ekran düzenleyici Programı çalıştırabilirsiniz. 
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Sonra Ne Olacak? 


Önce Bank Manager yardımcı ünitesini, sonra Ekran Düzenleyici Programı çalış- 
tırdıktan sonra, ekranın ortasındaki grafik kürsörü ile tercih haklarınızı ekranda 
göreceksiniz. 


Sonra seçiminize uygun harfe basınız (Örneğin çember için C'ye) 
Deneme için, 


C 


yazınız. Sonra kursör için yukarı düğmesine, parıldayan grafik kürsörü ekranın 
merkezinden 1 inch kadar yukarı gidine kadar basınız. 


Son olarak çember fonksiyonunu yürürlüğe sokmak için “SPACE” tuşuna bası- 
nız. Sonra menüyle dönebilirsiniz. 


M yazma (Menü için) size ekranı koruyabileceğiniz veya yeniden düzenleyebilece- 
ğiniz veya 1.2.3 ve 4 ekranların içeriklerini (hafızanın 2. 64K'lık bölümünde) usta- 
lıkla kullanabileceğiniz alternatif bir menü getirecektir. 


Ekran fonksiyonları kullanmak için, hafıza numarasını (1,2,3 veya 4) yazınız. Da- 
ha ileri bir menü ekrana gelecektir. 
Bunlardan şu özellikleri seçebiliriz. 


S Ekranı saklamak için 

R Ekranı düzeltmek için 

E Ekranları değiştirmek için 

(RETURN) İşlemi bitmeden durdurmak için 


Örneğin eğer ekrandaki görüntüyü 2 numaralı hafızada saklamak istiyorsanız, önce 
2 sonra S yazınız. 


Başka bir menüye dönerken (bir düzeltme (R) saklama (S) veya yapılan herhangi 
bir işlemden sonra), M yazarsanız tekrar orijinal menüye dönebilirsiniz. 


Ekran Düzenleyici bir dizi kolaylık sağlayacaktır. Örneğin kutular, çemberler, üç- 
genler, çizgiler, noktaları dizme, doldurma ve karakter çizim. 


Bir ekran görüntüsü tamamlandığında, alternatif menüden Saklama ünitesini kul- 


lanarak ileri gösterme/basma için disklerde saklanabilir. Düzeltme (R) kullanarak 
da istenildiği anda tekrar yüklenebilir. 
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Böylece bu el kitabındaki son bölümü de tamamladık. Bu rehberde sunduğumuz 
programları kullanır, inceler ve deneyler yaparsanız, AMSTRAD BASIC ve 6128'in 
kendisi hakkında yeterli bilgi sahibi olabilirsiniz. 


İleri Detaylar 


BASIC ve program ayrıntılarıyla 6128 hakkında ileri detaylar, CP /M işlemleri hak- 
kında ve Dr.LOGO dili hakkındaki bilgiler için çok AMSOFT yayınından veya 
bağımsız yayınlardan elde edilebilir. 


Son olarak size CP/M son kullanıcı Lisans anlaşması terimleri sözlüğü, bazı oyun 
programları listesi ve el kitabımızın geniş bir indexini içeren 4 ilave bölüm sunuyo- 
ruz. 


Bu el kitabını öğretici ve ilginç bulduğunuzu ümit eder, CPC 61289i satın aldığınız 
için teşekkür ederiz. 
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EK 1 
Digital Research ve 
AMSTRAD 


Son Kullanıcı Program Ruhsatı Anlaşması 


KULLANICININ DİKKATİNE-LÜTFEN BU NOTU DİKKATLE OKU- 
YUNUZ. BU RUHSAT ANLAŞMASINI OKUMADAN DİSKET PAKE- 
TİNİ AÇMAYINIZ. 


DİSKET PAKETİNİ AÇMANIZ BU ANLAŞMADAKİ KOŞUL VE KU- 
RALLARI TANIYARAK ANLAŞMAYI BENİMSEYİP KABUL ETME- 
NİZ ANLAMINA GELİR. 


1. Açıklamalar: 


I- DRI. DIGITAL RESEARCH (CALIFORNIA) INC, P.O.Box 579, Pasific 
Growe California 93950 anlamına gelir ve yayın hakkı ya da programın yetkili ruhsat 
sahibidir. 


2- Makina, programı kulandığınız tek mikrobilgisayar anlamına gelir. Çoklu MİB 
(CPU) sistemleri bu ruhsata ek başka ruhsatlar olmaksızın kullanılamazlar. 

3- Program, program seti ile pakette bulunan ilgili materyallar ve dökümanlar 
ile DRI tarafından -sizin kullanım şekliniz ve gideceğiniz düzenlemeler 
gözetilmeksizin- hazırlanan ekler ve arttırımlar anlamına gelir. 


4- AMSTRAD ise AMSTRAD CONSUMER ELECTRONİCS PLC., Brentwood 
House 169 Kings Road, brentwood, Essex CM14 4 EF U.K. anlamına gelir. 


İstediğiniz sonuçları elde etmede kullanacağınız programın seçimi, kullanımı ve 
elde ettiğiniz sonuçların tüm sorumluluğu size aittir. 
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2. Ruhsat 


Aşağıda belirtilenleri yapabilirsiniz: 
I- Programı tek bir makinada kullanınız. 


2- Programı geri saklama ya da dizinleme amacı ile;tek bir makinada kullanır- 
ken yedeğini bulundurma veya dizinleme amacıyla başka bir makinaya okunabilir 
ve yazılabilir biçimde kopya edebilirsiniz. Ancak bu amaçlar içinde olsa üç (3) kop- 
yadan fazlasını yapamazsınız. (Zaten bu tür programlar kopya sayısını sınırlayan 
bir mekanizma içerirler. Bu tür programlar “copy protected” (kopya önlemeli) 
şeklinde bir ibre taşırlar.) Dökümanların ve diğer yazılı-basılı materyallerin kop- 
yalarının çıkarılması yasaktır. Programın parça parça veya çevirisiz halinin kop- 
yası da yasaktır. 


3- Tek makinanızda kullanmak amacıyla programda bir değişiklik yapabilir ve/ve- 
ya başka bir programla birleştirebilirsiniz. (Ancak bu yeni oluşan programdan başka 
bir programa yapılan herhangi bir eklendi bu anlaşmanın koşul ve kurallarının ko- 
nusu olacaktır.) ; 


4- Programı ve ruhsatı, DRI'ya diğer partinin ad ve adresini bildirdiğiniz ve di- 
ger parti izleyen koşullara uyuyorsa o partiye aktarabilirsiniz: a) Bu anlaşma'nın 
koşul ve kurallarına uymalıdır, b) Kayıt kartının bir kopyasını imzalayıp DRV'ya 
yollamalısınız ve c( Cari transfer ücretini yollamalısınız. Eğer programı aktarırsa- 
nız, bu durumda aktarılmamış kopyaları yok etmeniz ya da tüm kopyaları da 
-özgün program dahil- yazılı veya makina tarafından okunabilir formda aktarma- 
nız gerekir. Burada sözü geçen aktarma diğer programa eklenen bölümleri veya 
değiştirilen programı kapsar. 


Değişiklik yapılan yada bölüm eklentileri yapılan her kopyada yayın hakkı ibare- 
sini yeniden yaratmak ve bulundurmak zorunludur. 


HER DİSKET BİR SERİ NUMARASINA SAHİPTİR VE ÜÇÜNCÜ BİR 
PARTİYİ OLUŞTURACAK BİÇİMDE KULLANILAMAZ, KOPYA EDİ- 
LEMEZ, DEĞİŞTİRİLEMEZ, AKTARILAMAZ VE BENZERİ İŞLEM- 
LERE KONU OLAMAZ. 


PROGRAMA AİT KOPYALAR, DEĞİŞTİRMELER VE EKLENTİLER- 
DEN HERHANGİ BİRİNİ BAŞKA BİR PROGRAMA AKTARDIĞINIZ- 
DA RUHSATINIZ OTOMATİKMAN İPTAL EDİLECEKTİR. 
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3. Kural 


Ruhsat, iptal edilinceye kadar geçerlidir. İptal etmek için yapabileceğiniz; progra- 
mın bütün kopyalarının sonradan yapılmış değişiklik ve eklentilerin tümüyle bir- 
likte, var olan bütün formlarını istediğiniz zaman imha etmektir. Ruhsatınız bu 
anlaşmada geçen herhangi bir maddenin ihlali sonucunda da iptal edilir. Böyle bir 
durumda da programı; bütün kopyaları, eklenti ve değişikliklerle birlikte imha et- 
meyi kabul etmiş sayılırsınız. 


4. Sınırlı Garanti 


PROGRAM “OLDUĞU GİBİ” SAĞLANMIŞTIR. PAZARLAMA GÜ- 
VENCESİ VEYA BELLİ BİR AMACIN SAĞLANMASI İÇİN DE OLSA 
VEYA BÖYLE GÖRÜNSE, HATTA BUNUN DOĞRULUĞU KANIT- 
LANSA BİLE NE AMSTRAD NE DE DRI HİÇBİR BİÇİMDE GARAN- 
Tİ VERMEZLER. PROGRAMIN KALİTE VE PERFORMANSIYLA 


İLGİLİ DOĞABİLECEK TÜM TEHLİKELERİN SORUMLULUĞU Sİ- 
ZE AİTTİR. PROGRAMIN HERHANGİ BİR EKSİĞİ BULUNDUĞUN- 
DA GEREKEN SERVİS, TAMİR VEYA DÜZELTME İŞLEMİNİN 
HARCAMALARI SİZE (ve AMSTRAD yaDA DRVya) AİTTİR. 


Ne AMSTRAD nede DRI programın içerdiği fonksiyonların sizin isteklerinizi tü- 
müyle karşılayacağına yada programın hatısız ve kesintisiz çalışacağına garanti ver- 
mezler. 


Bununla birlikte AMSTRAD, programınızın yer aldığı diskte malzeme veya işçi- 
lik nedeniyle doğan arızaları;makbuzunuzda belirttiğiniz teslim tarihini izleyen 90 
gün içinde normalin dışında kullanmamış olmanız kaydıyla; gidermeyi garanti eder. 


5. Çözüm ve İyileştirme Yolları 


AMSTRAD'ın tüm sorumluluğuna ek olarak sizin sorumluluğunuz, bu “Sınırlı 
Garanti”nin gereklerini karşılamayan disketinizi, makbuzunun bir kopyasıyla bir- 
likte AMSOFT'a yollayarak değiştirilmesini sağlamaktır. 
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AMSTRAD YADA DRI DOĞABİLECEK ZARARLARA İLİŞKİN ÖNE- 
RİLERDE BULUNMUŞ DA OLSA, BAŞKA BİR PARTİ DE BENZERİ 
İSTEKLERDE BULUNMUŞ OLSA; NE AMSTRAD NE DE DRI KAR VE 
TASARRUFLARIMIZIN KAYBINDAN YADA BAŞKA YOLLARDAN 
DOLAYLI VEYA DOLAYSIZ DOĞABİLECEK ZARARLARA İLİŞKİN 
OLAYLARDA HİÇBİR SORUMLULUK KABUL ETMEZ. 


6. Kayıt Kartı 


DRI zaman zaman programlarında bazı yenilemeler yapmak isteyebilir. Eğer ge- 
çerli biçimde imzalanmış bir kayıt kartınız DRUnın ana bürosundaki dosyanızda 
ya da bu konuda yetkili bir temsilcimizde var ise bu değişikliklerden yararlanabi- 
lirsiniz. DRI program yenilemeleri yapmaya ve size de benzeri yenileme hizmetleri 
sunmaya zorunlu değildir. y 


7. Genel 


Hiçbir şekilde alt lisans, alt ruhsat düzenleyemez ve veremezsiniz, yada sözleşme- 
de geçtiği gibi programı ve/veya ruhsatı başkasına devredemez, aktaramazsınız. 
Yoksa bu alt ruhsatlar ve aktarım/devredim yüzünden boşu boşuna yükümlülük 
altına girmiş olursunuz. 


Bu anlaşma İngiliz yasalarına uygun olarak hazırlanmıştır ve İngiliz yasalarının 
güvencesi altındadır. 


Bu anlaşmayla ilgili herhangi bir sorununuz olduğu zaman DRI'nın aşağıdaki ad- 
resine yazabilirsiniz: 


“Digital Research Inc., P.O.Box 579, Pacific Grove, California 93950, USA” 
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BU ANLAŞMA İLAN, İSTEK BİLDİRİMİ VEYA BAŞKA YOLLARLA 
HİÇ KİMSE TARAFINDAN DEĞİŞTİRİLEMEZ, YALNIZCA SİZLE 
AMSTRAD VEYA DRVUNIN YETKİLİ TEMSİLCİLERİ ARASINDA YA- 
PILABİLECEK YAZILI BİR ANLAŞMAYLA DEĞİŞTİRİLEBİLİR. 


BU ANLAŞMAYI OKUDUĞUNUZU, ANLADIĞINIZI VE İÇERDİĞİ 
KOŞUL VE KURALLARA UYACAĞINIZI ONAYLAMIŞ BULUNUYOR- 
SUNUZ. AYNI ZAMANDA BU ANLAŞMANIN DAHA ÖNCE AMS- 
TRAD VE/VEYA DRI İLE YAPMIŞ OLDUĞUNUZ YAZILI VEYA 
SÖZLÜ TEKLİF VEYA ÖNANLAŞMALARIN VE BU ANLAŞMANIN 
İÇERDİĞİ KONULARDA DAHA ÖNCE AMSTRAD VE DRI İLE YA- 
PILMIŞ BİLDİRİMLERİN YERİNE GEÇEN VE TÜM BUNLARI DEV- 
RE DIŞI BIRAKAN SON ANLAŞMA AOLDUĞUNU KABUL ETMİŞ VE 
ONAYLAMIŞ BULUNUYORSUNUZ. 


BU ANLAŞMA KAZANILMIŞ HAKLARINIZI ETKİLEMEYECEKTİR. 
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Ek 2 
Terimler Sözlüğü 


6128 kullanıcıları için bilgisayar dünyasında çok kullanılan bazı terimlerin açıkla- 
maları 


Accumulator (akümülatör) 


Mikro bilgisayarların kalbi olan mikro işlemcide, işlem gören bilginin geçici ola- 
rak saklandığı bölüm. Makina dili ile programlamada çok sık kullanılır-BASIC 
kullanıcıları varlığından haberdar olmazlar. 


Acoustic coupler (Akustik bağlaç) 


Akustik modem olarak da bilinir. Bilgisayarın normal telefon hattı aracılığı ile ha- 
berleşmesini sağlayan elektronik aksamdır. Bu yolla bir bilgisayar diğer bilgisa- 
yarlarla veya halka açık danışma sistemleri (Prestel gibi) ile iletişim sağlayarak 
program ve bilgi alış verişi yapabilir. 


Address (Adres) 

Bilgisayarların belleğindeki bir yeri simgeleyen sayı. Adres kullanılarak hafızada- 
ki bir bölgede ne yazıldığı okunabilir; eğer bu bölge RAM'da ise aynı zamanda 
buraya yeni bir değer verilebilir. 


Adventure game (Macera oyunu) 


Kimilerine göre çok zevkli kimilerine göre ise akıcı olan bir bilgisayar oyunu tipi. 
Metin özelliği gösteren bu tür oyunda, oyuncu bir labirenti çözmeye veya zor bir 
durumda kurtulmaya çalışır. 


Algorithm (Algoritma) 
Bir problemin çözümünü sonlu sayıda adımda matematiksel ve mantıksal işlem 


şeklinde tarif etme yöntemi. 


Alphanumeric (Alfa sayısal) 


Bir harf veya rakam ve bir grafik karakteri arasındaki farkı gösteren sıfat. 
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ALU 


Aritmetik lojik ünitenin kısa adı. Aritmetik mantık birimi Mikro işlemcide arit- 
metik ve mantıksal işlemlerin yapıldığı birim. Makina kodu ile programlama dı- 
şında direkt olarak kullanılamaz. 


Ambiguous File Name (Belirsiz dosya adı) 


Bir veya daha çok wild card karakteri içeren dosya adı. Ortak özellikteki bir veya 
daha çok dosyayı aynı anda ifade etmek için kullanılır. 


AMSDOS 


Amstrad disk işletim sisteminin kısa adı. Locomotive BASIC'in disk dosyalarına 
erişebilmesini sağlayan program. 


AMSOFT 


AMSTRAD''ın özel bilgisayar destek bölümü. Özellikle 6128 ve kullanımını, yazı- 
lım, donanım, yayın gibi hizmetlerle destekler. 


A/D 
Analogue 


Başlangıç ve varış noktaları arasındaki değişimin ani olması yerine adım adım ger- 
çekleştiği durum. Bilgisayarlar sayısal aletlerdir, doğal olayların çoğu ise örneksel 
tabanlıdır. Bu yüzden bilgisayar örneksel bir kaynaktan alınan verileri işlemeden 
önce bir örneksel sayısal (A/D) çevirim yapmalıdır. 


Animation (Canlandırma) 


Karton filimler canlandırmanın en yaygın örnekleridir. Bilgisayar canlandırması, 
hareketli grafikler ile gerçek hareket izlenimi vermeye çalışılır. 


Applications program 
Özel amaçlı program 


Arcade Game (Hareketli oyun) 


Hareketli bilgisayar oyun türü. Oyuncunun kontrolündeki figürler tehlikelerden 
korunmak ve oyunun amacını gerçekleştirmek için çaba gösterirler. Bu tür oyun- 
lar, genellikle refleksleri geliştirirler fakat bilgisayar öğrenenlere eğitim konusun- 
da yardımcı olmazlar. 
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Architecture (Yapı) 


Bir mikro bilgisayarın veri kaynağı, çevre birimleri ve işlemcisi arasındaki ilişki 
planı 


Argument 


Bağımsız bir değişken. Örneğin, Xx * yz ifadesinde, Xx, y ve z terimleri birer 
ARGUMENTdir. 


Array (Dizi) 
İçerisinde yatay ve dikey koordinatları ile adreslenerek bilgi saklanan 2 boyutlu 
matris. 


Artificial intelligence Al (Yapay zeka) 


Programın geçmişteki deneyimlerden öğrenmesini sağlayan programlama tekniği. 


ASCII 


Bilgisayarlarda kullanılan 128 adet harf, sayı ve özel işaretlerden oluşan karakter 
setini belirleyen standart 


Assembler 


Assembiy dilindeki komutları, makina dili komutlarına çeviren bilgisayar progra- 
mı. 


Backup (Yedek) 


Yardımcı bellekteki bilgilerin, herhangi bir aksaklığa karşı korunmak amacıyla çı- 
karılmış kopyası. Bu işlem bir disk veya dosyanın kopyasını yapmayı ifade eder. 


Bar code (Çubuk kodu) 


Düşük güçlü lazer ile okumak gibi teknikler kullanılarak bilgisayar tarafından okun- 
ması mümkün olacak şekilde basılmış kodlar. 


Base (Taban) 


Herhangi bir sayı sisteminde kullanılabilecek değeri. 
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BASIC 


Beginner's All-purpose Symbolic Instruction Code kelimelerinin kısa adı. Tüm ev 
bilgisayarlarında kullanılan bir programlama dilidir. BASIC özellikle öğrenim ve 
kullanım kolaylığı ön planda tutularak hazırlanmıştır. Bu dilde yazılan bir prog- 
ram, yazılımın her safhasında çalıştırılarak denenebilir. Buna karşı derleyici kul- 
lanan dillerde yazılan programlar tamamı yazılıp çalıştırılmadan denenemezler. 


Baud 


Saniye başına iletilen bit sayısı. Bilgisayarlar ve çevre birimleri arasındaki iletim 
hızı birimi. 


BCD 


Binary Code Decimal kelimelerinin kısa yazılışı. İkili kodlanmış onlu yazım. Her 
basamağın dört ikili rakam ile ifade edilmesi yolu ile kodlanmış desimal sayı. 


BDOS 


Basic Disk Operating System kelimelerinin kısa yazılışı Ana disk işletim sistemi. 
CP/M işletim sisteminin, kullanıcı programım CP/M fonksiyonlarını kullanabil- 
mesini sağlayan bölüm 


Benchmark (Denek izi) 


Bilgisayar donanım ve yazılım elemanlarını diğerleri ile kıyaslamak üzere yapılan 
standart testler ve deneyler. Örneğin 99.999'un karekökünün karesinin hesaplan- 
ması. 


Binary (İkili) 


Tabanı iki olan, sadece | ve 0 rakamlarının kullanıldığı sayı sistemi. 


Binary number (İkili sistem) 


İkili sistemle ifade edilen sayı. 6128 programlamasında x ön eki ile gösterilir. Ör- 
neğin: X0101 —5 (ondalık) 


BIOS 


Basic Input/Output System kelimelerinin kısa yazılışı. CP/M*'in kullanıldığı bilgi- 
sayarın özelliklerine göre yazılmış kısmı. Ekran, klavye, disk ve diğer çevre birim- 
leri aracılığıyla yapılan giriş ve çıkışları gerçekleştirir. 
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Bit (Bit) 
Binary Digit'in kısa yazılışı. İkili sayı sisteminde kullanılan 0 ve | rakamlarından 
biri. 


Bit Significant (Anlamlı bit) 


Bir bayt'ın içerdiği bilgi kendisini oluşturan sekiz bitin her birinin durumlarına ba- 
kılarak okunur. Bayt'ın sayısal değeri anlamsız olabilir. 


Boolean algebra (Boolean cebiri) 


Sadece doğru ve yanlış değerini alabilen mantıksal önermeler. Genellikle 1 ve 0 
ile gösterilirler. 


Boot (ön yükleyici) 

Bir işletim sisteminin hafızaya yüklenmesi işlemi. BASIC'den CP/M'e geçerken 
önce küçük bir önyükleyici program diskden yüklenir, daha sonra bu program iş- 
letim sisteminin kalanını yükler. 


Booting or Bootstrapping (ön yükleme) 


Programlar ve işletim sistemleri kendi kendilerini yükleyemezler, genellikle ROM'da 
yazılı küçük bir programla hafızanın belli bir yerine alınırlar. 


Buffer (Ara bellek) 


Bilgi akışındaki hız farklılıklarının etkisini önlemek üzere bilginin geçici olarak yük- 
lendiği birim. 


Bug (Hata) 


Bilgisayar sisteminin kendisinde meydana gelen çeşitli aksaklıklar. Örneğin anlamsız 
bir verinin anlamsız sonuçlar doğurması (dört tuşa basılınca ekranın renk değiştir- 
mesi gibi) veya programım belli bir yerinde tüm hafızanın silinmesi. 


Built-in commands (Mevcut komutlar) 


Bir işletim sisteminin parçası olan komutlar. Disk?den yüklenen komutlara göre 
daha hızlıdırlar. 


Bus (Hat) 


Bilgi bitlerini bir yerden diğerine taşıma işlemini yerine getiren sinyal yolları. 6128?de 
üzerinde EXPANSION yazan bağlantı yeri. 
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Byte (Bayt) 


Sekiz bitten oluşan ve CPU tarafından hafızaya yazılıp okunması mümkün olan 
en küçük hafazı birimi. 


CAD 


Computer Aided Design kelimelerinin kısa yazılışı. Bilgisayar yardımı ile dizayn 
işlemi. Bilgisayarın hesaplama ve grafik kabiliyetleri kullanılarak bir elektronik 
çizim masası görevi üstlenmesi. 


CAE 


Computer Aided Education kelimelerinin kısa yazılışı. Bilgisayar yardımı ile eği- 
tim işlemi. Bilgisayarın eğtimde yardımcı olarak kullanılması (CARE), bilgisayar ara- 
cılığı ile talimat verme (CAT) ve öğretme (CAL) olmak üzere iki şekildedir. 


Cartridge (Kartuş) 


Bilgisayarda özel olarak hazırlanmış bir sokete takılan ve yazılım içeren entegre 
devre. Kartuş üzerindeki yazılımın yüklenmesi ve çalışması hızlı ve kolaydır, fakat 
fiatı disk üzerinde olanlara göre oldukça fazladır. 


Cassette 


Bilinen kayıt bandından başka olarak, üzerine ROM yazılım kaydedilen çeşitli araç- 
ları ifade eder. 


CCP 


Console Command Processor kelimelerinin kısa yazılışı. CP/M*in, klavyeden ya- 
pılan girişleri yorumlayan ve işleme koyan modülü. 


Character (Karakter) 


Harfler, rakamlar ve grafik sembolleri dahil olmak üzere bilgisayar tarafından ba- 
lirtilebilen ve gösterilebilen tüm semboller. 


Character set (Karakter tablosu) 


Bir bilgisayar yada yazıcıda mevcut olan tüm semboller. Bir yazıcı, karakter setin- 
de mevcut olmayan bir karakteri bağlı olduğu bilgisayarınkinde bulunsa bile ma- 
samaz. 


Character string (Karakter dizisi) 


Tek bir ünite halinde saklanabilen ve işlem gören karakterler dizisi. Örneğin bir 
kelime veya kelimeler topluluğu. 
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Chip (Çip) 


Yaygın olarak her türlü yekpare elektronik entegre devreyi ifade etmek için kulla- 
nılır. Gerçekte ise üzerine özel yollarla devre işlenmiş ufak silikon parçasıdır. 


Clock (Saat) 


Bir bilgisayarın işlemesindeki zaman uyumunu sağlamak için kullanılan zamanla- 
ma sistemi. Saat ve tarihi tutanına gerçek zaman saati denir. 


Code (Kod) 


Literatürün dışında, programcılar tarafından genellikle makina kodunun kısaltıl- 
ması olarak kullanılır. 


Cold start (Her şeyi silerek yeniden başlama) 


Bir işletim sisteminin yüklenmesi ve çalıştırılması işlemi. CP/M'de bu ICPM ko- 
mutu ile sağlanır. 


Command (Komut) 
Bir programa yapacağı işlemi belirten sözcük. 


Compiler (Derleyici) 


BASIC gibi yüksek seviyeli bir dilde yazılmış programı makina diline çeviren ve 
böylece daha hızlı çalışmasını sağlayan program. 


Computer generations (Bilgisayar jenerasyonları) 


Bilgisayar teknolojisindeki bazı önemli gelişmeler dönüm noktası olarak kabul edi- 
lirler ve bunların aralarındaki dönemler birer bilgisayar nesili olarak adlandırılır- 
lar. 


Computer literacy (Bilgisayar literatürü) 
Bilgisayarları anlama anlamında bir deyim. 


Console mode (Klavye modu) 


CP/M'in direkt modu. Ekranda A > belirdiği ve sistemin bir komut beklediği hal. 


Corruption (Bozulma) 


Bir disk dosyasının veya hafızanın istenmeyen bir şekilde tahrip olması veya de- 
gişmesi. 
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CP/M 


Control Program for Microcomputers kelimelerinin kısa yazılışı. Digital Research 
tarafından hazırlanmış, disk kullanan bir işletim sistemi. Değişik bilgisayarlar için 
yazılmış programların kullanılmasını sağlayan standart bir arabirimdir. 


CPU 


Central Processing Unit kelimelerinin kısa yazılışı. Emirleri derleyen ve yerine ge- 
tirilmesini sağlayan bilgisayarın en önemli parçalarından biri. Bir mikro bilgisa- 
varda CPU, mikroişlemcinin kendisidir. 


Cursor (Kursör) 


Ekranın üzerinde kontrolun nerede olduğunu gösteren işaret. 
Cursor control keys (Kursör kontrol tuşları) 


Kursörü ekran üzerinde hareket ettiren ve genellikle hareketli oyunlara kumanda 
için kullanılan, üzerlerinde yönü gösteren oklar olan tuşlar. 


Daisy-wheel printer (Bir çeşit yazıcı) 
Yüksek kaliteli veya daktilo kalitesinde yazı yazabilen yazıcı. Yazı, harflerin mü- 
rekkebe veya şeride karşı bastırılması ile yazılır. 


Database (Veri tabanı) 


Kendi içinde kayıtlara ve alanlara ayrılarak, yapısal bir biçimde organize edilmiş 
olan veri dosyaları. 


Data capture (Bilgi algılanması) 


Ana bilgisayara herhangi bir şekilde bağlı olan tüm dış kaynaklardan gelen verile- 
rin toplanmasını ifade eden terim. 


Debugging (Hata bulma) 


Bir programdaki hataların çeşitli metotlar kullanılarak düzeltilmesi işlemi. 


Decimal notation (Onluk gösterim) 
Denary diye de bilinen ve günlük yaşamda kullanılan 10 tabanlı sayı sistemi. 


Default (ön değer) 


Herhangi bir tercih yapılmadığında, kabul edilecek normal değer. Örneğin CP/M 
başlatıldığında Drive:A normal sürücü olarak kabul edilir. 
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Delimiter (Ayırıcı) 
Separatör'e bakınız. 


Diagnostic (Diyognostik) 


Bilgisayar tarafından, programdaki bir hatayı belirlemek için otomatik olarak üre- 
tilen mesaj. 


Digital (Sayısal) 


Bilginin sürekli olmayan, ayrık sinyallerle gösterilmesine verilen ad. 


Digitiser (Sayısallaştırıcı) 
Örneksel bir formdan, sayısal bir forma dönüşümü sağlayan cihaz. 


Directory (Rehber) 


Disk üzerindeki dosyaların adları, uzunlukları gibi bilgileri tutan yer. 


Disc (or disk) 


Bilgi saklamak için kullanılan üzeri manyetik oksit ile kaplı yassı ve yuvarlak plas- 
tik parçası. Disk bir koruyucu içerisine yerleştilir ve okuyucu kafa için bir açıklık 
bırakılır. 3*”*lik diskde bu açıklık, disk sürücüden çıkınca otomatik olarak kapa- 
nan bir metal kapakla kapatılır. 


Disk drive 


Diskden veri okumak ve yazmak için kullanılan alet. 


Documentation (Belgeleme) 


Bilgisayar veya programların beraberinde verilen ve nasıl kullanıldıklarını açıkla- 
yan el kitapları. 


DOS 


Disk Operating System kelimelerinin kısa yazılışı. Bir disk sürücüsünü tüm işlem- 
lerini kontrol eden program. 


Dot matrix 


Izgara şeklindeki düzenlenmiş ve istenenler seçildiğinde bir karakteri gösteren nok- 
talar topluluğu. 


415 


Double sided (Çift yüzlü) 


İki tarafında bilgi saklanabilen disk. Çift taraflı bir disk sürücüsü disk çevirmeye 
gerek kalmadan iki yüzüde ulaşabilir. 


Download 


Bir bilgisayarda diğerine bilgi alış verişi işlemi. 


Dr. LOGO 


LOGO programlama dilinin, Digita Rescarch tarafından yazılmış şekli. 


Dumb terminal 


Sadece veri giriş ve çıkışı için kullanılan, herhangi bir veri işleme özelliği olmayan 
bilgisayar terminali. 


Edit 


Veride program veya bir metinde değişiklik veya düzeltme yapma işlemi. 


Editor 


Genellikle bilgisayarın ROM'unda bulunan ve metin düzeltme işlemini mümkün 
kılan bir program. 


EPROM 


Eraseable Programmable Read Only Memory kelimelerinin kısa yazılışı. Bu 
PROM'a benzer fakat yonganın içerdiği bilginin ultraviyole ışık ile silinebilmesi 
bakımından farklıdır. EEPROM'da elektronik olarak silinebilmesi dışında aynı özel- 
liklere sahiptir. 


Expression 


Veriler kullanılarak istenen hesabı yapmak için program içerisine yerleştirilen ba- 
sit veya karmaşık bir formül. İfade, genellikle ne tip veri kullanılacağını belirtir. 
Dr. LOGO'da bir ifade, yapılabilecek işin ismi ve gerekli olan verilerden oluşur. 


Fifth generation computers 


Yapay zekanın geliştirilmesi ile kendi kendini programlama özelliğine sahip olma- 
ları beklenilen büyük bilgisayarlar. 
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File 


Kaset veya disk üzerine saklanmış veri toplulukları. 


File name 


Bir dosyanın adı. Dr. LOGO'da bir dosya adı 8 karakter uzunluğunda olabilir. 
CP/m ve AMSDOS'da ise buna ek olarak bir noktayı takiben üç karakter daha 
yazılabilir. 


Firmware 
ROM'”un ihtiva ettiği yazılım. Yazılım ve donanım arasındaki bir geçiştir. 


Fixed-point number 


Ondalık kısmı belli ve sabit bir pozisyonda olmak üzere saklanan ve işlem gören 
sayı. 


Floating-point number 


Ondalık kısmı gerektiği gibi yer değiştirebilecek şekilde saklanan ve işlem gören 
işlem sayı. Bu yöntem büyük sayılarda daha kullanışlıdır. 


Floppy disc 
Diske bakınız. 


Flowchart 
Program akışının diyagramlarla gösteriliş biçimi. 


Forth 


Yüksek hızlı bir programlama dili. Hız ve karmaşıklık bakımından yüksek seviye- 
li diller ile makina kodu arasında yer alabilir. Yeni başlayanlar için tavsiye edil- 
mez. 


Function key 


Kendi görevine ilaveten veya yerine değişik bir fonksiyon getirmek için program- 
lanmış tuş. 


Gate 


Belli girdiler için çıktılar üreten sayısal devre. Basit mantıksal fonksiyonlar kendi- 
lerine karşılık gelen geçitlerle gerçekleştirilir. (OR, AND, XOR gibi) 
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Graphics 
Bileikayarın ekranında, karakterlerin dışında olarak, çizgi, daire vb. gibi grafikle- 
rin gösterilmesi işlemi. 


Graphics character 


Bir eörüntüyü yaratmak için özel olarak dizayn edilmiş şekil. 


Graphics cursor 

Metin kKursörüne benzer fakat grafik ekranını belirler. 6128'in farkedilmeyen fa- 
kat çizim yapmak için zorunlu olan bir unsurudur. Karakter setinin bir parçası 
olan ve metin kursörünün bulunduğu yere yazılan grafik karakterleri ile karıştır- 
mamak gerekir. 


Graphics mode 


Eski bilgisayarların karakter yazmak veya grafik çizmek için ayarlanması gereki- 
yordu. Modern kişisel bilgisayarlar ise bu iki işlemi de aynı anda yapabilirler. 


Graphics tablet 


Verilen bir resim veya çizimi sayısal hale çevirip bilgisayara veren alet. 


Handshaking 


Bir bilgisayar ile diğer bir bilgisayar veya çevre bimi arasındaki bilgi alış verişini 
düzenleyen elektronik sinyaller dizisi. 


Hard Copy 


Bir program, metin veya grafiğin kağıda basılmış şekli. Ekranda gösterim ise “soft 
copy” olarak bilinir. 


Hardware 
Bilgisayarı oluşturan fiziksel birimlerin tümüne verilen genel ad. 


Hexadecimal (or HEX) 


Onaltılı rakam kullanılan sayı sistemi. 6128 programlamasında veya ön eki ile gös- 
terilirler. Örneğin, FF— 255 (ondalık) 
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Hex file 


Bir komut veya makina kodu dosyasının ASCII ile temsili 


High-level language 

Bilgisayarları programlamak için makine dili yerine kullanılan ve insan dillerine 
daha yakın olan programlama dilleridir. Makine kodu merkezli dillere göre daha 
yavaş çalışırlar fakat anlaşılmaları daha kolaydır. 


IEEE-48 


Mikro bilgisayarları diğer birimlere bağlamak için kullanılan standart arabirim- 
lerden biri. Centronics paralel ara birimine benzer fakat tamamen aynı değildir. 


Information tecnhology 


Bilgi işleme ve haberleşme alanında kullanılan her türlü elektronik birimler: keli- 
me işleme, veri iletimi vb. 


Initialise 
Sistem ya da programın başlangıç durumuna getirilmesi: değişkenlerin belirlenmesi, 
dizilerin açılması gibi. 


Input 
Her türlü veri ya da bilgilerin, klavye, disk, ara birim veya değişik kaynaklardan 
bilgisayar sistemine girilmesi. 


Instruction 
Bilgisayarın belli bir işlemi yapması için verilen emir. Bir program bir dizi komut- 
tan meydana gelir. 


Instruction set 

Mikro işlemcinin gerçekleştirebileceği komutlar grubu yüksek seviyeli tüm komutlar, 
işleme konmadan önce CPU'nun anlayabileceği komutlara dönüştürülmelidir. Bazen 
tek bir yüksek seviyeli komut birçok sayıda CPU komutu ile ifade edilebilir. 


integer 
Ondalıksız sayılar tam sayılar 
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Integer number 


Ondalık kısmı olmayan sayı. Tamsayı ve ondalık kısımdan oluşan reel sayıların 
tersine sadece tamsayıdan oluşurlar. 


Integrated circuit 


Birleştirilmiş ve bir silikon parçası üzerine yerleştirilmiş elektronik devreler grubu 
(Bkz. Chip) 


İntelligent terminal 


Veri giriş çıkışı yanında, ana sistemle bağlantısı kesildiğinde işlem yapabilen ter- 
minal 


İnteractive 


Bilgisayar sisteminin ya da programın kullanıcı ile soru cevaplı bir şekilde çalış- 
ması. Hareketli bir oyunda bir uzay gemisinin kontrolu veya bir eğitim progra- 
mında soruların cevaplanması gibi. Kullanıcının yaptıkları programın çalışma 
zamanlamasını etkiler. 


Interface 


Bilgisayarın diğer araçlar veya insan ile haberleşmesini sağlayan yol. 6128'in ara 
brimi klavye (giriş) ve ekran (çıkış) ve de diğer donanım için bağlantı soketlerin- 
den oluşur. 


İnterpreter 


Sistem yazılarının, yüksek seviyeli bir dilde yazılmış olan komutları, CPU'nun an- 
layabileceği seviyeye indiren bölümü. Örneğin: klavyeden girilen BASICi bilgisa- 
yarı kendi diline çevirir. 


1/0 
Giriş/Çıkış 


İteration 


Bilgisayar her işi, CPU tarafından yerine getirebilecek parçalara bölerek yapar. 
Bunun içinde bir koşul gerçekleşene kadar birçok basit eleman arasında gidip gel- 
mesi gerekir. 


Joystick 


Genellikle kursör tuşların vazifesini gören bir alet. Bilgisayar oyunlarının daha hızlı 
ve kolay oynanmasını sağlar. 
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K 


Kilo ön ekinin kısaltılmış. Bilgisayarda “kilobyte'ı temsil eder. Gerçekte 1024 (2 
üzeri 10) bayttır. 


Keyboard 


Üzerindeki tuşlara basıldığında bilgisayarın kullandığı karakteri üreten aygıt. 


Keyword 


Bilgisayar programında veya dilinde belli bir komut veya fonksiyonu ifade eden 
kelime. 


Least significant bit 
İkili bir sayıda en sağındaki bit (LSB). 


Light Pen 


Özel bir kalem kullanan giriş yöntemi 


Line number 
BASIC ve bazı diğer dillerde program satırları, satır numaraları ile dizilirler. 


Lisp 
LIST Processor Language kelimelerinin kısa yazılışı. Yüksek seviyeli bir bilgisa- 
yar dili. 


Logic 
Bilgisayarın tüm işleyişini oluşturan elemanter mantıksal işlem ve fonksiyonları 
yerine getiren elektronik birimler. 


Logical device 


Bir cihazın tanımı kendi fiziksel formundan başka olabilir. Örneğin :CP/M Man- 
tık cihazı LST bir Centronics çıkış birimide olabilir ya da bir monitördür. 


LOGO 


İsmi Yunanca logos kelimesinden alınan bir programlama dili. Bilgisayar prog- 
ramlamanın esaslarını öğretmek amacı ile geliştirilmiştir. 
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Loop 


Belirlenen koşul sağlanıncaya kadar program konularının tekrar edilmesi. 


Low-level language 


Assembiy dili gibi, her komutun makina kodu komutlarına karşılık olduğu prog- 
ram dili. 


LSI 


Large Scale Integration kısa adı. Daha küçük alanlara daha çok fonksiyon yerleş- 
tirilecek entegre devrelerin geliştirilmesi. 


Machine Code 


Mikro işlemci tarafından direkt olarak anlaşılan programlama dili. 


Machine redable 
Herhangi bir işlem gerekmeden bilgisayara girilebilecek veri ortamı. 


Man-machine interface 
Bilgisayar ve kullanıcı arasında iletişimi sağlayan klavye, ekran, ses gibi araçlar. 


Matrix 


Ekranda veya 'dot matrix? yazıcının yazma kafasında karakteri oluşturan nokta- 
lar grubu. Matematikçe ve bilgisayar biriminde dizileri belirtmek için de kullanı- 
lır. 


Memory 


Bilgisayarda bilginin sistemli ve istenilen bilgiye kolayca erişebilecek şekilde sak- 
landığı yer. Hem okunması hem de yazılması mümkün olan RAM ve sadece oku- 
nabilen ROM şekillerinden oluşur. Disk ve bant da CPU tarafından ulaşılması 
mümkün oldukları için bir çeşit hafıza olarak kabul edilirler. 


Memory map 
Bilgisayar hafızasında hangi adreslerde hangi fonksiyonların bulunduğunu göste- 
rir plan. 


Menü 
Programın kullanışındaki tercihlerin bulunduğu liste. 
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Microprocessor 
Bilgisayarın beynini oluşturan ve tüm merkezi işlemlerin yapıldığı entegre devre. 


Modem 


Modüler DEModulatör'ün kısa adı. Bilgisayarın giriş ve çıkışlarının telefon hattı 
veya optik lif gibi ortamlarla yapılmasını sağlayan aygıt. (Bkz. Acoustic coupler) 


Monitör 


Bir bilgisayar terminalinin ekranı. Aynı zamanda bilgisayarın bazı temel işlevleri- 
ne ulaşmayı mümkün kılan makina kodu program. 


Mouse 


Her yönde haraket edebilen ve bir zemin üzerinde yürütülerek ekranda kursörü 
hareket ettirmeye yarayan aygıt. Program kullanımını kolaylaştırmak için gelişti- 
rilmiştir. 


MSB 


Most significant Bit'in kısa adı. İkili bir sayının en soldaki bit'i 


Network 


İki veya daha çok sayıda bilgisayarın çeşitli yollarla bağlanarak birlikte çalışır hal- 
de olması. 


Nibble 


Bir kayıtın yarısı. Dört bitlik bir ifade. F6 ifadesindeki F ve 6 onaltılı rakamları- 
nın herbiri bir nibbledir 


Node 
LOGO dilinde bir hafıza birimidir. Bir nod genellikle dört bitten oluşur. 


Noise 
6128'in her türlü ses özellikleri. 


Numeric keypad 


Klavyede, nümerik veri girmek için kullanılan tuşlar grubunun bulunduğu kısım. 
6128'de bu tuşlar tanımlanabilir fonksiyon tuşları olarak da kullanılırlar. 
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OCR 


Optical Character Recognition kelimelerinin kısa yazılış. Yazılı karakterlerin op- 
uk olarak okunup, bilgisayarca anlaşılabilir veri haline getirilmesi. 


Octal 


Her rakamın 3 bit ile ifade edildiği 8 tabanlı sayı sistemi. 


Off line 


Ekran veva yazıcı gibi bir bilgisayar aksamının ana işlem birimi ile bağlantılı ol- 
maması hali. 


On line 
Off line'in tersi. 


Operating system 
Bilgisayarın işlemlerini kontrol eden yazılım. 


Operatör 
Sayılar ile yapılacak işlemleri belirleyen ifadeler. ( * ,-,*,/ gibi) 


Output 


Bir bilgisayardan hesaplamalar sonunda çıkan her türlü sonuç. 


Owerwrite 
Hafızada bir bölgenin, üzerine yeni veri yazılarak silinmesi. 


Paddle 
Oyun çubuğunun bir başka adı. 


Page zero 


CP/M ortamında, hafızanın sistem değişkenlerini saklayan ve 0000 ile 0100 adres- 
leri arasında kalan kısım. 


Paperware 


Hardcopy'nin diğer bir anlatımı. Bazen geliştirilmesi tamamlanmadan piyasaya sü- 
rülen bilgisayarlarda, paperware exercise olarak tabir edilirler. 
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Parallel interface 


61298'in-yazıcı ara birimi, paralel bir yazıcıyı besler. Bu bilgisayardan verilen her 
veri satırının yazıcı tarafından direkt olarak alınması demektir. Paralel ara birim 
ile veri transferi, seri ara birim ile yapılandan daha hızlıdır. Çünkü seri ara birim 
önce her bir bayt'ı transfer için uygun hale getirmeli ve aynı zamanda senkroni- 
zasyonu da sağlamalıdır. 


Pascal 


Yüksek düzeyli, çalışmadan önce derlenmesi gereken ve bu yüzden çok hızlı olan 
bir programlama dili. Genellikle BASIC*den sonra öğrenilen ilk dildir. 


PEEK 


Bilgisayarın belleğinde istenilen bir yeri okumak için kullanılan BASIC fonksiyo- 
nudur. 


Peripheral 


Bilgisayarın yeteneklerini geliştirmek amacı ile bağlanan her türlü birim. Yazıcı, 
modem, oyun çubuğu, kaset birimi gibi. 


Physical device 


Fiziksel devresi olan gerçek bir cihaz. Bu tip cihazlar mantıksal cihazlarla da ta- 
nımlanabilirler. 


Pixel 


Ekran üzerinde, bilgisayar tarafından kontrol edilebilen en küçük alan. 


Plotter 


Yazıcı kafa yerine, kalem kullanarak gerçek anlamda çizebilen yazıcı tipi. Teknik 
ve grafik çizimler için kullanılır. 


POKE 


Bellekte belirtilen bir yere istenilen bir değeri vermek için kullanılan komut. 


Port 


Ara birim üzerinde veri giriş çıkışı için özel olarak adreslenebilir nokta. 
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Portability 


Genel anlamı dışında bir yazılımın değişik bilgisayarlarda çalışabilmesini ifade eder. 
Bu genellikle ortak bir işletim sistemi (CP/M gibi) sayesinde mümkün olur. 


Primitives 
Dr. LOGO'yu meydana getiren işlem veya komutlar. 


Printer 
Metin yazmak için kullanılan her türlü hardcopy metodu. 


Procedure 
Belli bir işlemin nasıl yapılacağını belirten ifadeler veya program komutları serisi. 


Program 


Bilgisayarın istenilen işi yapması için gerekli olan komutlar kombinasyonu. Basit 
bir makina kodu rutininden kelime işlemci gibi kompleks bir programa kadar her 
türlü yazılımı kapsar. 


Programming language 
Bir programın yazılabilmesi için gerekli olan ve katı kurallara sahip ortam. 


PROM 


Programmable Read Only Memory kelimelerinin kısa yazılışı. Üzerine veri yazıl- 
dıktan sonra bir daha silinmesi mümkün olmayan entegre hafıza devresi. (EPROM'a 
bakınız) 


Prompt 


Kullanıcıya, bir girdi beklendiğini gösteren kısa mesaj veya karakter. Örneğin 
CP/M'de , Dr. LOGO'da ? karakteri. 


PSU 


Power Supply Unit kelimelerinin kısa yazılışı. Normal şebeke ceryanını bilgisayar 
ve çevre birimleri için gerekli voltaja ayarlayan elektronik devre. 


OWERTY keyboard 


İngiliz veya Amerikan daktilo klavyesini ifade eden terim. 
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RAM 


Ramdom Access Memory kelimelerinin kısa yazılışı. Programın normal seyri sıra- 
sında, bilgisayarın dahili donanımı kullanılarak hem okunması ve hem de yazıl- 
ması mümkün olan bellek. 


Random access 
Belleğe veya disk üzerine istenilen şekilde bilgi yazıp okuyabilme kabiliyeti. 


Random number 


Bilgisayar programı tarafından rastgele olarak üretilen ve ne tekrarı ne de tahmin 
edilmesi mümkün olan sayı. 6128 bir sahte rastgele sayı serisi üretebilir. 


Raster 


Ekranın yatay çizgiler halinde taranması yöntemi ile görüntü oluşturulan bir yaz- 
ma sistemi (Raster scan) 


Read only R/O 


Bir disk, dosya veya sürücünün veri yazma veya değiştirme fonksiyonların/önle- 
mek için kullanılan sıfat. 


Read write R/W 


Bir disk, dosya veya sürücünün veri okuma ve yazmasının serbest olduğunu ifade 
eden sıfat. 
Real number 


Tamsayı ve ondalık kısımdan mevcut sayı. 


Real time 
Gerçek zaman içinde programın çalışması. 


Record (Kayıt) 
Bir dosyadaki baytlar grubu. CP/M, 128 baytlık kayıtlar kullanır. 


Recursion (Tekrarlayan) 
Her seferinde sonucun bir öncekine bağlı olduğu program adımları tekrarı serisi. 


Refresh (Taneleme) 
Bilgiyi hafıza ya da ekranda son hale getirme. 
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Register (Kayıt) 


CPW'da geçici saklama için kullanılan hafıza bölümü. 


Remark (İşaret) 


Programın çalışmasında herhangi bir etkisi olmayan, sadece programcıya hatır- 
latmalarda bulunmak veya program hakkında bilgi vermek için programın içerisi- 
ne yerleştirilen ifadeler. 


Reserved word (Ayırılmış kelime) 


Daha önceden verilmiş bir anlamı olan ve başka bir iş için kullanılması mümkün 
olmayan kelime. Örneğin BASICte NEW sözcüğü bir değişken adı olarak kulla- 
nılmaz, başka bir amaç için ayrılmıştır. 


Reselotuon (Çözünüm) 


Bir görüntü elemanının bitip diğerinin başladığı yeri tayin etme kabiliyeti. Aynı 
zamanda bilgisayarın büyük sayılarla aritmetik işlemler yapabilme kabiliyetinide 
ifade için kullanılır. 


Reserve Polish notation 


(RPN) operatörlerinin (* ,-,*,/) ait oldukları değerlerden sonra yazıldığı aritme- 
tik ifade metodu. 


RF Modülatör 


Bilgisayarın görüntü sinyallerini standart TV tarafından kullanılabilecek hale ge- 
tiren araç. 


ROM 


Read Only Memory kelimesinin kısa yazılışı. Bir kere yazıldıktan sonra silinmesi 
veya değiştirilmesi mümkün olmayan, sadece okunabilen, genellikle yarı iletken 
hafıza sistemi. 


Routine (Rutin) 

Bir iş gören program bölümüdür. Bir ana programın içerisinde, veya değişik prog- 
ramlar ile kullanılan ayrı bir modül halinde bulunan alt program. Örneğin sistem 
saatinden, gerçek bir saat görüntüsü oluşturan program bir rutin sayılabilir. 
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RS232C 


Seri, veri alış verişi için bir standarttır. RS232C kullanan veri hattının iki ucunda- 
ki cihazın da RS232C standartlarında olması gerekir. Bunu her yerde standart olan 
Centronics paralel ara birimi ile karşılaştırınız. 


Screen editor (Ekran editörü) 


Ekrandaki metin veya program üzerinde kursörle istenilen yere gidilerek değişik- 
lik yapılmasını sağlayan editör. 


Serolling (Kaydırma) 


Ekran dolup, yeni yazılacak satır için yer açmak amacı ile ekrandaki görüntünün 
yukarıya kayması. 


Sector (Dilim) 


Disk üzerinde bir veri bloğu. AMSTRAD disk sistemi 512 bayt'lık dilimler kulla- 
nır. 


Separatör (Ayırıcı) 


Sınırlayıcı ile aynı işi görür. Ayrılmış kelimeler ile programın diğer bölümleri veya 
veriler arasındaki sınırı işaretler. 


Serial interface (Seri ara birim) 


Bu terim RS232 ara birimine çok yakın olduğu halde bu alanda başka standartlar 
da vardır. 


Simulation (Taklit) 


Bilgisayar kullanarak gerçek olayların taklit edilmesi. Araba veya uçak kullanmak 
gibi. 


Single sided (Tek taraflı) 


Sadece bir yüzünde veri saklanabilen disk. 


Soft key 


(UDK tanımlanabilir karakterlere bakınız.) 


Software (Yazılım) 
Programlar disk, kaset, ROM veya diğer esaslı olabilirler. 
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Software engineering (Yazılım mühendisliği) 
Sistemli ve planlı olarak, bilgisayar programlamayı ifade eden terim. 


Sound generatör (Ses üreteci) 
Bilgisayarın ses üreten kısmı. (Yazılım veya donanım olabilir) 


Speech recognition (Konuşma algılaması) 
Konuşulan kelimelerin makina tarafından anlaşılabilir veriler haline çevrilmesi. 


Speech synthesis (Konuşma sentezi) 
Yazılım ve donanım kullanılarak insan sesinin ve konuşmanın taklit edilmesi. 


Spreadsheet (Çalışma sayfası) 


Satır ve sütunlar halinde sayılar girilmesini ve bunların aritmetik işlemlerinin ya- 
pılmasını sağlayan program. Bir verinin değiştirilmesi, ilgili tüm hesapların tekrar 
edilmesi ve yeni durumun üretilmesine sebep olur. 


Sprite (Hareketli ekran) 


Özel bir donanım veya yazılım tarafından oluşturulan, ekranda serbestçe hareket 
eden ve gelişigüzel görünüp kaybolan bir karakter. 


Stack (Küme) 


Hafızada bilgi istifi için kullanılan bölge. Fakat sadece son girilen bilgi geri çağrı- 
labilir. 


Statement (İfade) 


Bir bilgisayar programında emir veya emirler serisi. 


Stream (Akım) 


Bilgisayardan çıktı almak için kullanılan yollar. (Ekran, yazıcı veya disk gibi.) 


String (Dizi) 

Bir karakterler dizisinde oluşan ve sayısal bir değişken gibi işlem görmesi müm- 
kün olmayan veri tipi. Tamamen sayısal olabilir fakat gerekli komut ile çevirim 
yapılmadıkça bir sayı gibi kullanılamaz. 


430 


Structured programming ( ) 


Yukarıdan aşağıya kolay anlaşılabilir adımlar halinde akan programlar yazmada 
kullanılan, mantık ve tasarlama gerektiren programlama tekniği. 


Sub-routine (Alt-rutin) 


(Rutin'e bakınız.) 


Syntax error (Yazılım hatası) 


Eğer programın kuralları, anahtar kelimeler veya değişkenlerin yanlış kullanımla- 
rı ile ihla! edilirse, BASIC kullanıcıya bu mesajı verir. 


System tracks (Sistem izleri) 
Disk üzerine CP/M için ayrılmış olan izler. 


Terminal (Terminal) 


Bir klavye giriş birimi ile VDU ekranı veya teletip daktilo çıkış biriminden oluşan 
sistem. 


TPA 


Transient Program Area kelimelerinin kısa yazılışı. Belekte ÇO100”den sonra ge- 
len ve CP/M kullanıcı programlarının çalıştığı ve veri sakladığı alan. 


Track (İz) 
Disk üzerinde müşterek merkezli dairelerdir. Her iz belli bir sayıda dilimi tutar. 
Formatlama sırasında iz ve dilimler disk üzerinde belli yerlere yazılır. 


Transient program (Geçici program) 
İsmi klavye ile yazılarak TPA”ya yüklenen ve çalışan CP/M kullanım programı. 
(PIP gibi) 


Truncated (Kesik) 


Bir kısmının ayrılması sonucunda kısaltılmış sayı veya dizi. İstenerek bir sayının 
yuvarlanması veya istenmeyerek bir dizinin yazılacak yere sığması için kısaltılması 
şeklinde olabilir. 


431 


Truth table (Doğruluk tablosu) 


Bir mantıksal ifadenin sonucu ya “doğru? ya da “yanlış'tır. Bilgisayar bunları 1 ve- 
ya O olarak yorumlar. Doğruluk tablosu bir mantıksal izlerin mümkün olan halle- 
rinin listesidir. 


Turnkey 


Sistem yüklendiğinde otomatik olarak çalışan program anlamında bir söz. 


Turtle 
Dr. Logo grafik ekranı üzerindeki ok ve şeklindeki grafik kursörü. 


Turtle graphics 


“Turtle'ın ekran üzerinde hareketi sonucunda oluşan grafik. Turtle hareket eder- 
ken arkasına iz bırakır. 


Turtle step 


“Turtle'nin hareket edebileceği en kısa mesafe. Genellikle bir pixel. 


UDK 


User defined keys kelimesinin kıza yazılışı. 6128'de 32”ye kadar tuş kullanıcı tara- 
fından herhangi bir amaç için tanımlanabilir. 


Unsigned number (İşaretsiz sayı) 
Önünde pozitif veya negatif olduğunu belirten bir işaret bulunmayan sayı. 


Utility (Kullanım) 


Veri sıralama veya dosya kopyalama gibi sık tekrarlanan işlemleri yapmak için kul- 
lanılan her türlü program. 


Utility program (Kullanım programı) 
Kullanıcının belli işlemleri yapmasını sağlayan disk programı (Transient program). 


Variable (Değişken) 


Bir isim ile ifade edilen ve değeri programın çalışması sırasında değişebilen sayı 
veya dizi. 
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Warm start 


CP/M'de (CTRL)C'ye basılması ile sağlanır. Disk alt sistemini sıfırlar ve kontro- 
lu yeni bir komut almak üzere CP/M'e geri verir. 


Wildcard character 


* ve ? karakterlerinin herhangi biri. Dr. Logo sadece Yi kabul eder. * herhangi 
bir sayıda Wi gösterir. Belirsiz dosya adlarını ifadede kullanılır. Dosya adındaki 
bir ? her türlü karakteri kapsar. 


Write protection (Yazma koruması) 


Bir disk veya disk dosyası üzerine veri yazılmasını önler. Yazma korumalı bir disk 
veya dosya sadece okunmak içindir. 


XYZY 


Serüven oyunlarında zor durumdan kurtulmaya yarayan sihirli bir sözcük. 
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EK 3. 
Sizin İçin Bazı Programlar 


Bustout 


Bir oyuncu bilgisayara karşı. Klayve ve Joystick. 


'BUSTOUT by ALEXANDER MARTIN 
"copyright (c) AMSOFT 1984 
! 


MODE 1:BORDER T:INK B,T:INK 1,26:INK 2,24:INK 3,6 
SPEED KEY 15,2 

ENV 1,1,18,0,11,0,10 

ENT 1,10,2,2 

ENV 3,1,0,16,5,-3,2 

ENV 2,5,3,3,1,-21,22,9,-3,2 


ENT <27510,252557“7 4142411532 kB 
, 


MOVE 30,32:DRAWR 0,400,1:MOVE 610,32:DRAWR 0,400,1 

PEN 3:LOCATE 3,1:PRINT STRING$(36,143) 

PEN 2:LOCATE 3,2:PRINT STRINGS$(36,143) 

PEN T:FOR r-5 TO 6:LOCATE 3,r:PRINT STRING$(36,143) 
NEXT r 

bxz9 

livesz5:scorezf 

PEN 1:GOSUB 680:CLEAR INPUT 

IF INKEY$<>CHRS$(32) AND JOY(0)<16 THEN 200 

LOCATE 11,23:PRINT SPACES$(20):LOCATE 1,24:PRINT SPA 
CE$(40); 

GOSUB 690:GOSUB 660:G0TO 280 


! 
! 
LOCATE bx,24:PRINT" ";STRINGS$(4,131);" ":RETURN 
, 


xazl:yazl:IF INT(RND*2)-1 THEN xaz-xa 
PEN 1:GOSUB 257 

ORIGIN 0,400 

xzbxt4:y:11:x12x:y12y 


XxX1Tzx*txa:y1lzytya 
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IF x1:3 OR x1:38 THEN xaz-xa 

GOSUB 540 

IF y1:24 AND x1>bxt1 AND x1<bxt6 THEN yaz-ya:y1zy1- 
2:SOUND 130,44,8,7,1,1:az((x>bxt5)OR(x<bxt2)):1IF az 
-1 THEN xazxa*a:x1>x1txa:y12y141 

IF y1:25 THEN LOCATE x,y:PRINT" ":60TO 500 

GOSUB 250 

tZTEST((16Xx1)-1,-(16Xy1)-1) 

IF t<>0 THEN yaz-ya:xz-x1:yz-y1:y1zy1tya:G0OSUB 590: 
IF t-2 THEN scorezscoret10:G0OSUB 660 

IF t:3 THEN scorezscoret20:GOSUB 660 

IF t:1 THEN scorezscoret5:G0SUB 660 

IF y1:1 THEN yazl 

LOCATE x,y:PRINT " ":LOCATE x1,y1:PRINT CHR$(233):Xx 
-x1:yzy1 

IF yzs1 OR x:3 OR x-38 THEN SOUND 129,78,8,7,1,1 
GOTO 340 


Liveszlives-1:SOUND 132,19,46,12,2,2:1IF lives-9 THE 
N 6G0TO 620 

GOSUB 660:G0TO 280 

, 


IF CINKEY(8)-0 OR INKEY(74)-0) AND bx>2 THEN bx-bx- 
2: RETURN 

IF CINKEY(1):0 OR INKEY(75)-0) AND bx<32 THEN bxzbx 
#2:RETURN 

RETURN 

, 


LOCATE xz,yz:PRINT " ":RETURN 
U 


IF score>zhiscore THEN hiscorezscore 
GOSUB 660:scorez0:livesz5:6G0TO 130 
' 


SOUND 130,0,20,13,3,0,31:LOCATE 1,25:PRINT TAB(4)"H 
ISCORE";hiscore; 

LOCATE 18,25:PRINT"SCORE";score:LOCATE 30,25:PRINT" 
LIVES";lives:RETURN 

LOCATE 11,23:PRINT"PRESS SPACE TO START":RETURN 
LOCATE 1,25:PRINT SPACES$(4ğ);:RETURN 


Bomber 


Bir oyuncu bilgisayara karşı. Yalnız klavye. 


'BOMBER by DAVE TOWN 
"copyright (c) AMSOFT 1984 
' 


MODE 1:CLS:INK 0,0:BORDER O:INK 1,18:INK 2,6:1INK 3,4 
SINK 5,15:INK 6,2:INK 7,24:INK 8,8:INK 9,26:1INK 10,1 
O:INK 11,20:INK 12,12:INK 13,16:1INK 14,14:INK 15,21 
SYMBOL AFTER 240:SYMBOL 241,840,860,870,87F,&7F,&3F, 
87,80:SYMBOL 242,80,832,87A,&FE,&FA,&F2,8E0,80 
scorezÜ:hiscore-(:plane$-CHR$(241)*4CHR$(242):x-2:y-2 
:dropz-0:a-2:b-2 


GOSUB 480 
CLS 
PEN 2:LOCATE 1,15:INPUT"Enter skill : 9 (ACE) to 5 ( 
NOVICE) : ",skill 

IF skill<dg OR skill>5 6G0TO 9g 

skillzskillt10 

LOCATE 1,15:PRINT CHR$(18);:LOCATE 1,15:INPUT"Enter 

speed BD (FAST) to 100 (SLOW) : ",rate 

IF rate>100 OR rate<9 GOTO 120 

' 

'Buildings 

' 

MODE Ö:FOR base-5 TO 15:FOR height-21 TO INT(RND(1) 
*8*tskill) STEP -1:LOCATE base,height:PEN base-2:PRI 
NT CHRS$(143)14CHRS$S(8)*CHRS$(11)*4CHR$(244);:NEXT :NEXT 
PLOT 0,20,4:DRAW 640,20,4 

LOCATE 1,25:PEN 2:PRINT"SCORE";score;:LOCATE 13,25: 
PRINT"HI";hiscore; 

, 

'Main Game 

' 

LOCATE x-1,y:PRINT" dür 

PEN 1:LOCATE x,y:PRINT plane$;:PEN 2 

IF yz21 AND xz15 THEN G0OTO 290:ELSE G0TO 340 

, 

'Landed 

, 

FOR cz-0 TO 1000:NEXT 
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480 


490 


500 


510 


520 
530 
540 
550 


scorezscoret180-(skill*2):skillzskill-1:x:2:y:2:az-2 
:bz2:dropz0 

IF skill<10 THEN skillz1ğ:ratezrate-20 

IF rate<0 THEN ratez-f 

6G0TO 150 

FOR cz0 TO rate:NEXT 

XEX11 

IF xz18 THEN LOCATE x-1,y:PRINT CHRS$(18);:x22:y2y11 
:LOCATE x,y:PEN 1T:PRINT plane$;:PEN 2 

a$-INKEY$:IF a$-" " AND drop-8 THEN dropzl:bzyt2:az 


X 

IF yz21 THEN drop: 

IF dropz1 THEN LOCATE a,b:PRINT CHR$(252);:L0OCATE a 

,b-1T:PRINT" ";:bzbti:1IF b>21 THEN LOCATE a,b:PRINI" 
“Z:LOCATE a,b-i:PRINT" ";:a-0:b-0:dropz0:SOUND 3,4 

000,10,12,0,0,10 

gaz(a-0.5)x32:gb-400-(bx*16):bombzTEST(ga,gb) 

IF bomb>0 THEN G0TO 670 

gx:((xt1.5)4£32):gy-408-(yx16):crashzTEST(gx,gy) 

IF crash>8 G0T0 570 

G0TO 230 

, 


'Instructions 

, 

LOCATE 1,2:PEN 1T:PRINT"You are piloting an aircraft 
over a des-erted city and must clear the buildings 
in order to land and refuel. Your air- craft move 

s across the screen from left to right.";:PRINT 

PRINT:PRINT"On reaching the right, the aircraft 
returns to the left A LINE FURTHER DOWN.You have a 

n unlimited supply of bombs and you can drop them 
on the buildings below by pressing the SPACE BAR. 

"ES PRINT 

PRINT:PRINT"Each time you land, the height of the 
buildings or the speed of your aircraft increases. 

"Z:PRINT:PRINT:PRINT"ONCE YOU HAVE RELEASED A BOMB, 
YOU WILL NOT BE ABLE TO RELEASE ANOTHER UNTIL THE 

FIRST HAS EXPLODED !!!!"; 

PEN 2:LOCATE 1,24:PRINT:PRINT"Press any key to star 

tez 

a$-INKEYS$:IF a$-"" GOTO 520 

RETURN 

' 


'Collision 
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LOCATE x-1,y:PRINT CHRS$(32) 4CHR$(32)4C0HR$(32)4CHRS$( 
253) *#CHRS$S(8)*CHR$(238)1CHRS$(8); 

FOR t-1 TO 10:SOUND 7,4000,5,15,0,0,5:PEN t:PRINT CC 
HR$(253) #CHRS$S(8)4CHR$(238)14CHRS$(8)4CHRS$(32)1CHR$(8) 
ZsFOR tm-8 TO 5İÖ:NEXT:NEXT:PEN 2 

CLS:LOCATE 1,5:PRINT"You scored";score; 

IF score>hiscore THEN hiscorezscore:LOCATE 1,8:PRIN 
T"TOP SCORE!!"; 

scorez0:LOCATE 1,12:PRINT"Press R to restart"; 
a$-INKEY$:IF a$-"r" OR a$-"R" GOTO 630 ELSE GOTO 62 
g 

PEN 1:MO0DE 1:x-2:y-2:a-2:b-2:6G0T0O 90 


'Bombed building 

' 

LOCATE a,b-1:PRINT" "#CHR$(8);:PEN 4:FOR tr:1 TO IN 
T(RND(1)43)11:scorezscoret5:SOUND 3,4000,10,12,0,0, 
10:LOCATE a,b:FOR t-0 TO 4:PRINT CHRS(253)4CHRS$(8)4 
CHR$(32)4CHRS$(8);:NEXT:bzbt1 

IF b:24 THEN bzb-1 

NEXT 

LOCATE 6,25:PRINT score;:drop-0:a-x:b-y:60TO 230 
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Telley tennis 


Bir veya iki oyuncu bilgisayara karşı. Klavye veya Joystick. 
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'TELLY TENNIS by DAVID RADISIC 
"copyright (c) AMSOFT 1985 
, 


DEFINT a-z 
compz1 
ENV 1,:11,20,-9,5000 
MODE T:INK 0,10:BORDER 1ğ:INK 1,26:INK 2,18:INK 3,0 
GOSUB 710 
GOSUB 150 
GOSUB 330 
GOSUB 420 
LOCATE 13,1:PRINT USING"#### ";score1; 
LOCATE 35,1:PRINT USING"#### ";score2; 
GOTO 100 
PEN 2 
x(1)53:y(1)35 
x(2)-37:y(2)z-22 
edge$-CHR$(233):edge2$-STRING$(2,207) 
LOCATE 1,3:PRINT STRINGS$(39,edge$):PRINT STRING$(39 
,edge$) 
FOR iz1 TO 19 
PRINT edge2$;TAB(38);edge2$ 
NEXT 
PRINT STRINGS$S(39,edge$):PRINT STRING$(39,edge$); 
WINDOW #1,3,37,5,23 
CLS#T 
SYMBOL 240,0,60,126,126,126,126,60,0 
bat$-"lI1"#CHRS$S(8) #CHRS(10)4"|" 
clr$z" "#CHR$(8) *CHRS$(10)4" " 


ball$z-CHRS$(240) 

PEN 3 

LOCATE 2,1:PRINT"Player 1 : 0";:LOCATE 24,1:PRIN 
T"Player 2 : 0"; 

RETURN 

NnŞINTCRND*2):CLS #1:scored- 

PEN 3 

FOR i-1 TO 2:LOCATE x(i),y(i):PRINT bat$;:NEXT 


ON n G0TO 390 
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xbz21:dxz1 

G0TO 400 

xbz19:dx:-1 
ybz12:dyzINT(RND*3)-17 
RETURN 

GOSUB 600 

oxbzxb:oybzyb 

GOSUB 500 

IF note>ğ THEN SOUND 129,note,50,15,1 
LOCATE oxb,oyb:PRINT" "; 
LOCATE xb,yb:PRINT ball$ 
IF scored:0 THEN 420 


RETURN 

LOCATE xbtdx,ybtdy:ch$-COPYCHRS(#0) 

notez-ğ 

IF ch$-" " THEN xbzxbtdx:ybzybtdy:RETURN 

IF ch$z<"|" THEN dx-2-dx-2:dyzINT(RND*3)-1:no0te-200: 
RETURN 


IF ch$ZLEFT$(edge2$,1) THEN 570 

IF ch$zedge$ THEN dy-2-dy-2:note-250 

RETURN 

IF dx>0 THEN score1lzscore1t1 ELSE score2zscore21t1 
scoredz1:note-2000 

RETURN 
p(1):(INKEY(69)>-0)1(INKEY(72)>-0)1ABS((INKEY(71)>> 
0)1(INKEY(73)>-0))42 

IF compz1 THEN p(2)-ABS(y(2)<yb)421(y(2)>yb):G0TO 6 
30 
p(2):(INKEY(4)>-0)1(INKEY(48)>-0)tABS((INKEY(5)>-0) 
#CINKEY(49)>-0))42 

PEN 3 

FOR iz1 TO 2 

LOCATE x(i),y(i)*p(i):ch$-COPYCHRS(40) 

IF ch$-" " THEN LOCATE Xx(i),y(i):PRINT clr$;:y(i)zy 
Cİ) #ROUND(p(1)/2) 

LOCATE x(i),y(i):PRINT bat$; 

NEXT 

PEN 1 

RETURN 

PEN 2:PRINT:PRINT TAB(15)"Ping-Pong":PRINT TAB(15)" 


PEN 3:PRINT:PRINT TAB(14)"To move bats 
PRINT:PRINT:PEN 1 

PRINT" Player 1 Player 2 Direction":PRI 
NT 
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750 
760 
770 
780 
790 
800 
810 
820 
830 


PRINT" A 6 up" 

PRINT" Z 3 DOWN":PRINT 
PEN 3:PRINT:PRINT TAB(14)"Or joysticks" 
PRINT:PRINT:PRINT:PRINT 

PEN 2 

PRINT TAB(6)"Select <1> or <2> players" 
i$ZINKEYS$:IF 1$<>"1" AND 1$<>"2" THEN 810 

IF i$z"1" THEN compz1 ELSE compz-f 

MODE T:RETURN 


Electric Fencing 


Yalnız iki oyuncu. Klavye ve Joystick 


'ELECTRIC FENCING by ALEXANDER MARTIN 
"copyright (c) AMSOFT 1985 

, 
DEFINT a-z 
MODE 2 
GOSUB 980 
GOSUB 1370 
GOSUB 270 
GOSUB 1520 

GOSUB 1370 

GOSUB 1270 

! 

REM start 

IF finished THEN G60T0O 100 

GOSUB 240 

FRAME:IF pldir THEN GOSUB 570 ELSE FRAME:FRAME 
FRAME:IF p2dir THEN GOSUB 620 ELSE FRAME:FRAME 
IF p1saz-1 THEN GOSUB 670 

IF p2sa:-1 THEN GOSUB 720 

60TO 140 

| 

' 

IF j THEN 380 ELSE 480 

, 

' 

CLS:PEN 6 

PRINT:PRINT" CHOOSE CONTROL" 
PRINT:PRINT:PRINT:PRINT"press J/K then ENTER" 
LOCATE 4,10:PRINT"JOYSTICK";TAB(5);"OR KEYS" 
LOCATE 12,10:1IF j THEN PRINT"*":ELSE PRINT" " 
LOCATE 12,11:1IF j THEN PRINT" ":ELSE PRINT"*" 
IF NOTCINKEY(45)) THEN j:-1 

IF NOTCINKEY(37)) THEN j:0 

IF NOT(CINKEY(18)) THEN RETURN ELSE 310 

! 

, 

p12J0Y(0):p2-J0Y(1) 

pldirz(p1 AND 1)4-14(p1 AND 2)40.5 


443 


444 


p2dirz(p2 AND 1)4x-1*(p2 AND 2)40.5 

IF P1 AND 16 THEN p1sazplsa-1T:IF p1sa:-1 THEN AFTER 
15 GOSUB 770 

IF P2 AND 16 THEN p2sazp2sa-1T:1IF p2sa--1 THEN AFTER 
15 GOSUB 770 

IF p1lsa THEN pldirzf 

IF p2sa THEN p2dirz-fg 

RETURN 


p2dirz((INKEY(4)-0)x1)1((INKEY(5)2:0)x-1) 
pldirz((INKEY(69):0)x1)4((INKEY(71):0)4-1) 

IF INKEY(63)-0 THEN p1lsazplsa-lT:IF p1saz--1 THEN AFT 
ER 15 GOSUB 770 

IF INKEY(10)-0 THEN p2sazp2sa-1T:IF p2sa--1 THEN AFT 
ER 15 GOSUB 770 

IF psa THEN pfldir-g 

IF p2sa THEN p2dir-g 

RETURN 


pt-plwptpldir:IF pt>25 OR pt<6 THEN RETURN ELSE piw 
p:pt 

pldirz-9 

PEN 1:LOCATE 3,plwp:CLS #3:PRINT CHR$(209);:RETURN 
' 


pt-p2wptp2dir:iIF pt>25 OR pt<6 THEN RETURN ELSE p2w 
p:pt 

p2dirz-ğ 

PEN 2:LOCATE 18,p2wp:CLS #5:PRINT CHR$(211);:RETURN 
' 


PAPER #4,4:WINDOW #4,4,17,plwup,plup:CLS#4:FRAME:FRA 
ME 

PAPER #4,0:CLS#4 

60TO 570 


PAPER #6,5:WINDOW #6,4,17,p2wp,p2wp:CLS#6:FRAME:FRA 
ME 

PAPER #6,0:CLS#6 

GOTO 620 

' 


760 
770 


780 


pwpez(plwpzp2wp):1IF plsa AND NOT(p2sa) AND pwpe THE 
N p1sczp1sct1:SOUND 132,120,10,0,1,0:PRINT#1,a$(p1s 
c)I;:IF p1sc:9 THEN 860 

IF p2sa AND NOT(p1sa) AND pwpe THEN p2sc:p2sct1:SOU 
ND 132,100,10,0,1,0:PRINT#2,a$(p2sc);:1IF p2sc-9 THE 
N 860 

IF plsa THEN SOUND 132,40,70,0,1,1 

IF p2sa THEN SOUND 132,56,70,0,1,1 

p1saz-ğ 

p2sa-ğ 

RETURN 

, 


PEN 6 

LOCATE 6,10:PRINT"GAME OVER" 

IF p1sc-9 THEN INK 1,2,20:INK 2,0 ELSE INK 2,6,17:1 
NK 1,8 


SOUND 129,1000,0,12,3:SOUND 130,900,0,12,3 
WHILE INKEY$<>"":WEND 

t!ZTIME:WHILE t'!*2000>TIME:WEND 

WHILE INKEY$-"":WEND 

CLS 

finishedz:-17 

RETURN 

' 

, 

a$(0):"111101101101111" 


a$(1):"0010010010019ğ1" 
a$(2):"111091111190111" 
a$(3)-"111901111091111" 
a$(4)-"1001001011119ğ1" 
a$(5)-"“111109111001111" 
a$(6)-<"111109111191111" 
a$(7):"“111001001010ğ10" 
a$(8):"111101111101111" 
a$(9)-"11119011110010ğ1" 
FOR n-9 TO 9 
howlongzLEN(a$(n)) 


FOR n221 TO howlong 

IF MID$(a$(n),n2,1):"1"THEN MID$(a$(n),n2,1):CHR$( 
143)ELSE MID$(a$(n),n2,1):CHR$(32) 

NEXT n2,n 

! 
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114ğ ' 

1150 b$-"ELECTRIC FENCING" 

1160 c$-CHR$(32)4CHR$(164)1" Alexander Martin" 
1170 ENV 1,-9,2000:ENT -1,6,3,1 

1180 ENV 2,127,0,0,127,0,0,127,0,0,127,0,0,127,0,0 
1190 ENV 3,-9,9000 


1219 ' 

1220 BORDER BP 

1230 INK 0,12:PEN #4,1:PEN #6,2:PEN #1,1:PEN #2,2:PAPER 
#1,3:PAPER #2,3:PEN #0,6 

1240 RETURN 'FROM SETTING UP CONSTANTIS 

1250 ' 

1260 ' 

1270 INK 0,12:INK 1,2:INK 2,6:INK 3,13:INK 4,20:INK 5,1 
7:INK 6,20 

1280 WINDOW #3,3,3,6,25:WINDOW #5,18,18,6,25 

1290 WINDOW #1,3,5,1,5:WINDOW #2,16,18,1,5:WINDOW #7,1, 
20,1,5:PAPER #7,3 

1300 CLS:CLS#7:PRINT#1,a$(0);:PRINT#2,a$(0);:p1sc-0:p2s 
c-O:plwp-5:p2wp-24:p1dirz1:p2dirz1! 

1310 GOSUB 570:GOSUB 620 

1320 SOUND 1,1000,0,12,2:SOUND 2,900,0,12,2 

1330 p1sa-0:p2sa-0:finished-G 

1340 RETURN 'FROM GAME SHEET RESTORE 

135ğ ' 

1360 ' 

1370 CLS 

1380 PEN 7 

1399 FOR nz1 TO LEN(b$) 

1400 LOCATE 2tn,10 

1410 FOR n2:LEN(b$) TO'n STEP-T 

1420 PRINT MID$(b$,n2,1) 

1430 LOCATE 2tn,10 

1440 SOUND 135,204£n2,5,12,2,1 

1450 NEXT n2,n 

1460 SOUND 135,100,0,13,3,1,20 

1470 PEN 6:PRINT:PRINT:PRINT:PRINT c$ 

1480 FOR nz1 TO 5000:NEXT 

1490 RETURN 

150ğ ' 

151ğ ' 

1520 IF j THEN RETURN 

1530 CLS 
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LOCATE 7,5 
PRINT"CONTROLS" 

PRINT 

PRINT" PLAYER1 PLAYER2" 


PRINT 


PRINT" A up 6" 
PRINT" 2 down Ci 
PRINT" X fire 7 
t!ZTIME:WHILE t!*1000>TIME:WEND 


RETURN 
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Amthello 


Bir oyuncu bilgisayara karşı. Yalnız klavye. 
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'AMTHELLO by M.J.GRIBBINS 
'copyright (Kc) AMSOFT 1984 
, 


BORDER 14 
CLEAR 
MODE T:PEN B:PAPER 1:CLS 
INK G,0:INK 1,14:INK 2,18:INK 3,26 
LOCATE 2,3:PEN 3:PRINT"A":LOCATE 3,4:PRINT"M":LOCATE 
4,5:PRINT"T":LOCATE 5,6ö:PRINT"H" 
LOCATE 6,7:PRINT"E":LOCATE 7,8:PRINT"L":LOCATE 8,9:P 
RINT"L":LOCATE 9,1ğ:PRINT"O" 
WINDOW #1,2,39,22,25:PAPER #1,1:PEN #1,0:CLS #1 
PEN G 
LOCATE #1,8,1:PRINT #1,"BLACK ALWAYS PLAYS FIRST" 
LOCATE #1,1,3:PRINT #1,"PRESS B OR W TO CHOOSE BLAC 
K OR WHITE" 
B$-INKEY$:IF B$-"" THEN 140 
IF B$-"W" OR B$-"w" THEN 04-3:N4-0:G0TO 210 


IF B$-"B" OR B$-"b" THEN 07-0:N4-3:60T0 210 
CLS #1:LOCATE #1,4,3 

PRINT #1," BLACK OR WHITE ONLY" 

FOR T:9 TO 1000:NEXT T 

GOTO 140 


DIM CZ2(10,10),PZ(9,9),C17(8),(C24(8),CXZX(9),C0YX(9) 
11422:J14722:1247-7:J2427 

FOR 14-0 TO 9 

C2(14,04)-6:C7X(0,14)-6 
c2(9,117)-6:C7X(17,9)-6 

NEXT 17 

FOR 14-1 TO 8 

READ C14(17),Cc24(174) 

FOR JZ&- 1 TO 8 

READ PZ(I1IZX,JX) 

CZ7(17,JX2)-6 

NEXT JZ:NEXT IZ 
C2(4,4)-3:C4(4,5)-0:C4(5,4)20:C4(5,5)-3 


340 
350 
360 
370 
380 
390 
400 
410 
420 


430 
44 
450 


460 
470 
480 


490 


500 
510 


520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


FOR KZ4-1 TO 58 

READ ARZ,BRZX,CRZX,DRZ 

PLOT ARZ,BRZ:DRAW CRZ,DRZX,Ü 

NEXT KZ 

GOSUB 1460 

IF 04-3 G0TO 770 

CLS #T:INPUT #1," WHICH LINE DO YOU WANT ";EZ 

IF EZ <1 OR EZ >8 GOTO 400 

LOCATE #1,1,3:INPUT #1,"WHICH COLUMN DO YOU WANT "; 
DZ 

IF DZ4 <1 OR DX >8 GOTO 420 

IF CZ(DZ,EX):6 G0OTO 480 

CLS #1:LOCATE #1,5,2:PRINT #1,"THAT SGUARE IS ALREA 
DY OCCUPIED !" 

FOR Tz1 TO 1080:NEXT T 

G0TO 400 

PLOT 2704(394xD4),704(30XxEX):DRAW 2901(30xD04),891(30 
*EZX) ,0aZ 

PLOT 2904(30XD4),701(30XEZX):DRAW 2704(30xDX),891(30 
*EX),aZ 

GOTO 54ğ 

FOR MZX- 9 TO 19 STEP 2:PLOT 2701(304D4),704M71(30xE 
4) 

DRAW 290*(30x04),7041M74(304xEX),6ö:NEXT MZ 

GOTO 400 

VRXX-0 

FOR KZX-1 TO 8 

VRZ4:20:C374-D4:C4/4-EZ 

C372C344C17(K4):C472C04741C027(KX) 

IF CZ(C3ZX,C4X) NX GOTO 590 ELSE 600 

VRZZVRZ211:G0TO 570 

IF CZ(C3X,C44)-6 GOTO 610 ELSE 620 

NEXT KZ:G0TO 670 

IF VRZX-0 GOTO 610 ELSE 630 

VRXZVRXZ#VRZ 

C342(C34-C172(KX4):C4742(C44-C27(KZ2) 

IF CX4(C3ZX,C44)-6 GOTO 610 ELSE 660 
C2(C3X2,C44)2:02:G0TO 640 

IF VRXZ-0 GOTO 680 ELSE 710 

CLS #T:PRINT #1," THIS IS NOT A POSSIBLE CHOİCE" 
FOR Tz1 TO 1000:NEXT T 

G0OTO 510 

EZ-EZ:DZ-DZ:VRXZ-VRXZ 

CLS #1:PRINT #1,"YOU HAVE PLAYED LINE NUMBER ";E4 
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450 


PRINT #1," AND COLUMN NUMBER ";D7 
LOCATE #1,2,4:PRINT #1,'"'THAT GIVES YOU ";VWRXZ;" Sau 
ARES(S)" 
CZ(DZ,EZX):0ZX:GOSUB 1710 
GOSUB 1460 
CLS #1:LOCATE #1,10,2:PRINT #1,"NOW IT'S MY TURN 

ın 
P/-0:VRXZ2-0:VRY7X20 
IF 1144J174-1 AND 1244J24-64 GOTO 860 

FOR KX-2 TO 7 
IF C4(2,K4) <> 
IF CZ(7,KX) <> 
IF CZ(KZX,2) <> 
IF CZ(KZ2,7) <> 
NEXT KZ 

FOR 14:1145 TO 124 

FOR J42J1X TO J24 
IF CX(14X,JX)-6 GOTO 1030 
NEXT JZ:NEXT IX 
IF P& > 0 G0TO 1000 
IF PASZ4:1 GOTO 920 ELSE 940 
CLS #T:PRINT #1," DEADLOCK ! I MUST PASS ALSO.GAME 
OVER" 
FOR T-1 TO 1000:NEXT T:G0TO 155ğ 
CLS #1:LOCATE #1,18,2:PRINT #1,"I MUST PASS" 
GOSUB 2720 
IF PASZ4-1 GOTO 970 ELSE 990 
CLS #T:PRINT #1,"DEADLOCK'! YOU MUST PASS ALSO.GAME 
OVER" 

FOR T-1 TO 1000:NEXT T:G0TO 1550 
GOTO 400 

IF LCZ4-0 THEN LCZ<T:RANDOMIZE LCZ:RLZZRND(LCZ) 
CXTZCXZ(CRLZ4):CX2Z2CYZCRLZ) 

6G0TO 1220 

VRXZX-0 

FOR K4-1 TO 8 

VR4-0:C37217:C442J74 
C372C371C17(K7):C442C471C27(KX) 

IF CZ(C3X,C44)-A0X2 GOTO 1080 ELSE 1090 
VRZ-VRZ211:G0TO 10960 

IF CZ4(C3Z4,C44):6 GOTO 1100 ELSE 1110 

NEXT KZ:G0TO 113ğ 

IF VRZX:0X GOTO 1100 ELSE 1120 

VRXZVRXZ*VRX:G0TO 1100 


THEN 114-1 
THEN 124-8 
THEN J14-1 
THEN J24-8 


GG O 


1130 
1140 
115 
1160 


1179 
1180 
1199 
1200 
1210 
1220 
1230 
1240 
1250 


1260 
1270 


1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 


1450 
1460 
1470 
1480 
1490 
1500 
1510 


IF VRXZ4-0 GOTO 890 

IF PZ(IZ,JX4) < PZ GOTO 890 

IF PZX(1Z,JX) > PX GOTO 1160 ELSE 1170 
PZZPZ(IX,JX):VRYZ-VRXZX:LC4-0:CX2(0)21X:CYZ2(0)2J4:G 
0TO 890 

IF VRYZX > VRXZX GOTO 890 

IF VRYZ < VRXZX GOTO 1190 ELSE 1200 
LCZ-İ:VRYZZVRXZ:CXX(9)-1IZ4:CYZ4(0)-J72:60TO 890 
LCZ2LCZ#1:CXX(LCX)21IZ4:CYX(LCX)3JZ 

GOTO 890 

CX27-C0X24:C0X172CX1IX:VRYZSVRYZ 

CLS #T:PRINT #1," I CHOOSE LINE NUMBER ";CX24 
PRINT #1," AND COLUMN NUMBER ";CX14 

LOCATE #1,1,4:PRINT #1," THAT GIVES ME ";VRYZ&;" SGU 
ARE(S)" 

PLOT 2704(304CX17),701(30xCX2X):DRAW 2901(304*CX14) 
,891(304CX24) ,NX 

PLOT 2904(304CX14),701(30£CX24):DRAW 2701(304CX14) 
,891(304CX274) ,NX 

FOR T-1 TO 1000:NEXT T 

FOR K4-1 TO 8 

VRZ4-0:C34-C0X1X:C44-C0X24 
C(37-C374C174(K24):C44-C4741C27(KZ2) 

IF CZ(C3X,C44)-0X GOTO 1330 ELSE 1340 
VRZ:VR411:G0TO 1310 

IF CX(C3X,C44)-6 GOTO 1350 ELSE 1360 

NEXT KX:G0TO 1400 

IF VRZ2-0 G0TO 1350 

C34:(C37-C0127(K72):C47-C474-C2X(KZ) 

IF CZ(C34,C44)-6 G0TO 1350 

CZ2(C34,C44)-N4:60TO 1370 

CZCCX1IZ,CX2ZX) NA 

GOSUB 2720 

GOSUB 1460 

IF PASZ&-1 GOTO 1440 ELSE 1450 

CLS #T1:PRINT #1," YOU MUST PASS":FOR T:1 TO 10 
OÖ:NEXT T:G0TO 770 

GOTO 400 

FOR 14-1 TO 8 

FOR J/&-1 TO 8 

FOR MZX-0 TO 19 STEP 2 
74-2701(30x174):H7425704(304J74) M2 HZ21M7 

PLOT ZZ,WX:DRAW Z77120,WX,CX(1IX,J4) 

NEXT MZ:NEXT JZX:NEXT 14 
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1520 X72XX41 

1530 IF XX-61 G0TO 155 

1540 RETURN 

1550 caX-9:CNX:0 

1560 FOR 14-1 TO 8 

1570 FOR JZ-1 TO 8 

1580 IF CXCIZ,JX)-0X THEN C072C0X41 

1590 IF CXCIZ,JX)-NX THEN CNZZCNX41 

1600 NEXT JX:NEXT 1X 

1610 IF CAZ > CNX GOTO 1680 

1620 IF CAZ-CNX GOTO 1630 ELSE 1650 

1639 CLS #1:LOCATE #1,25,2:PRINT #1,"DEADLOCK" 

1640 END 

1659 CLS #1:LOCATE #1,5,1:PRINT #1,"YOU HAVE ";CaX;" sa 
UARES;I HAVE ";CNZ 

1660 LOCATE #1,11,3:PRINT #1,"I HAVE WON....!!!1“" 

1670 END 

1680 CLS #1:LOCATE #1,5,1:PRINT #1,"YOU HAVE ";CcaX;" sa 
UARES;I HAVE ";CNZ 

1690 LOCATE #1,5,3:PRINT #1,"WELL DONE. YOU HAVE WON !! 


1700 END 

1710 IF CZ2(2,2)-04 AND (CZ(3,1)-NX OR C4(1,3)-N4) GOTO 
1720 ELSE 1738 

1720 PX(3,1)21:P4(1,3):1 

1730 IF CZ(7,7)-0X AND (CX(8,6)-N2 OR CZ2(6,8)-N4) GOTO 
1740 ELSE 1750 

1740 PX(8,6)-1:P4(6,8):1 

17590 IF C&(2,7)-0X AND (CZ2(1,6)-N2 OR C4(3,8)-N24) GOTO 
1760 ELSE 1770 

1760 PZX(1,6)-1:P24(3,8):1 

1770 IF CZ&(7,2)-0X AND (CX(6,1)-N2 OR CX(8,3):N74) GOTO 
,1780 ELSE 1790 

1780 PX£(6,1)21:P4(8,3)-1 

1790 IF DZ2-1 OR 02-8 OR EZX-1 OR EZX-8 G0TO 1820 

1800 IF CX14-1 OR CX17-8 OR CX24-1 OR CX24-8 GOTO 1820 

1810 RETURN 

1820 FOR JZ&-1 TO 8 STEP 7 

1830 FOR 14-2 TO 7 

1840 IF CZ(IZ,JZX)-NX GOTO 1850 ELSE 1860 

18590 PZ(1211,J4)221:P24(14-1,J4)221 

1860 IF CZC(JZ2,IZ2)-NX GOTO 1870 ELSE 1880 

1870 PZX(JZ2,1411)221:P2(JZ2,14-1)221 

1880 NEXT 17 
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FOR 14-2 TO 7 
IF C&CIZX,JZ2)-AX GOTO 1910 ELSE 1920 
PXL(14*41,J4)22:P4(174-1,J4)-2 

IF CZ(JZ2,14)-0X GOTO 1930 ELSE 1940 
PZ(JZ,1411)352:P4(JX4,14-1)22 
NEXT 1IZ:NEXT JZ 
PZ(1,2)51:P4(1,7)21:P4(2,1)21:P4(7,1)21 
P/(2,8)21:PX(7,8)21:P4(8,2)-1:PX(8,7)21 

FOR 14-2 TO 7 
IF CZ(1,14-1)-04 AND CZ(1,121t1)-02 THEN PZX(1,14)22 
5 
IF CZ(8,14-1)-0X AND CZ2(8,1711)-0Z7 THEN PZ(8,14)-2 
5 
IF CZ(14-1,1)207 AND CZ(12411,1)-02 THEN PZ(1Z,1)-2 
5 
IF C&(14-1,8)-02 AND CZ(1711,8)-0Z7 THEN PZ(174,8)-2 
5 
NEXT 1IZ 
FOR J&-1 TO 8 STEP 7 
FOR 14-4 TO 8 
IF CZ&(JZ,IZ4) <> NZ GOTO 2140 
IC&-1X-1:1IF CZ(JZ,1ICX):6 GOTO 214 
IF CZCJZ,ICZ4)-AZX GOTO 2080 ELSE 2090 
IC/4:1C4-1:60TO 2070 
IF CZ(JZ2,1CX):6 GOTO 2110 
60TO 2140 
IF ICZ&:0 GOTO 2140 
IF CZ(JZ2,12t1)20X AND CZ&(JZ2,1C4-1):6 GOTO 2140 
PZ(JZ,1CX)-26 

IF CZ(1IZ,JX) <> NZ GOTO 2230 

1CZ&-14-1:1IF CZCICZX,JX)-6 GOTO 2230 
IF CZCICZ2,JZ4):AX GOTO 2170 ELSE 2180 
ICZ&:1IC4-1:G0TO 2160 
IF CZ(ICZ2,JX4)-6 GOTO 2200 
60TO 2230 
IF ICZ4-0 GOTO 2230 
IF CZ(1441,J4)-0X AND CZ&(1C4-1,J4)-6 GOTO 223 
PX£(C1ICX4,JX)-26 
NEXT IX 

FOR 14-1 TO 5 
IF CZ(JZ,14) <> NZ2 GOTO 234 
ICZ-IZ*1:IF CZCJZ,ICX):-6 GOTO 2340 

IF CZCJZ&,1C4)-GX GOTO 2280 ELSE 2290 
ICX&:1ICXt1:60TO 2270 
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2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 


2640 
2650 
2660 


2670 


IF CZ(JX4,1C4): 
GOTO 2340 

IF 1CX-9 GOTO 

IF CZ(JZX,14-1) 
PZ(JZ,1C4)226 

ep e PRŞ 
1C721X41:1F CX 
IF CXC1ICZ,J7) 
1C721CX*11:G0TO 
Tİ “CACIĞA ZI) 
GOTO 2430 

IF 1CX-9 GOTO 
IF CZ(14-1,J4): 
PZ(1ICX,JX4)-26 

NEXT IZ:NEXT J 
IF CZ(1,1)2N7 

FOR 14-2 TO 6: 
IF CX(1,8) NX 

FOR 17-2 TO 6: 
IF CZ(8,1):N7 

FOR 14-2 T0 6: 
IF C4(8,8)-N4 
FOR 14-3 TO 7 
Ir EAT, <> 
IF C2(1,8) <> 
IF C2(8,1) <> 
IF C4(8,8) <> 
PZ(1,1):30:P7( 
FOR 14-3 TO 6 

IF CZ(1,12)2N7 
IF CZ(8,1I7):N4 
IF CZ(IZX,1):NX 
IF CZ(17,8):N7 
NEXT 1X 

IF CZ2(7,1)204 

5,1)56 THEN PX 
IF CZ2(1,7)-07 

1,5):6 THEN PX 
IF CZ7(2,1)-04 

4,1):26 THEN PZ 
IF CZ(1,2)-04 

1,4)26 THEN P? 
IF C4(8,2)-0a4 

8,4)-6 THEN PX 


6 GOTO 2310 


2340 
zAZ AND CZ(JZ,1CX11):6 G0OTO 2340 


> NZ G0TO 2430 
CICZ,J2)-6 GOTO 2430 

aZ GOTO 2370 ELSE 2380 
2360 


<6 GOTO 2400 


2430 
aX AND CZX(1CX4*11,J4)-6 G0TO 2430 


h 

GOTO 2450 ELSE 2460 
PZ(1,14)-20:PX(1X,1)-20:NEXT IX 
GOTO 2470 ELSE 2480 
PZ(17,8)-20:PZ4(1,9-14)-20:NEXT 14 
GOTO 2490 ELSE 2500 
PZ(9-147,1)-20:P/4(8,14)-20:NEXT 14 
GOTO 2510 ELSE 2520 


:PZ(14,8)-20:P4(8,14)-20:NEXT 14 


6 THEN PZX(2,2)55 
6 THEN PZX(2,7):5 
6 THEN PZX(7,2):55 
6 THEN PX(7,7)55 
1,8)-30:P7(8,1)-30:P4(8,8)-30 
THEN 
THEN 
THEN 
THEN 


PZ(2,14)-4 
PZ(7,14)-4 
PZ(CIX2,2)24 
PZ2(14,7)-4 


AND CX(4,1)N3 
(6,1926 
AND CX(1,4) NX 
(1,6)-26 
AND CX(5,1)N7 
(3,1926 
AND CX(1,5)N3 
(1,3)-76 
AND CZ(8,5)N7 
(8,3)-26 


AND CZX(6,1)-6 AND 


c2(1,6)-6 AND 
Cc2(3,1)-6 AND 
c2(1,3):6 AND 


c2(8,3):6 AND 


cz 


ci 


cz 


Cc 


cz 


2680 
2690 
2700 


2710 
2720 
2730 
21740 
2150 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 


2930 
2940 
2950 
2960 
2970 
2980 
2990 


3000 


IF CZ(2,8)-0X AND CX4(5,8)-N2 AND C4(3,8)-6 AND CZ( 


4,8)-6 THEN PZ(3,8)-26 


N 


IF C4(8,7)-AX AND CZ(8,4)-NX AND CZ(8,5)-6 AND CZ( 


8,6)-6 THEN PZX(8,6)-26 


IF CZ(7,8)-0X AND CZ4(4,8)-N2 AND CZ4(5,8)-6 AND CZ( 


6,8):6 THEN PZ(6,8):26 

RETURN 

PASZ-0 

FOR 14:1 TO 8 

FOR JZ-1 TO 8 

IF CZ(IZ,J/)-aX GOTO 2780 

NEXT JZ:NEXT IZ 

PASZZST:RETURN 

FOR KZ&:1 TO 8 

VRZ2:0:C3742174:C4742JX 
C3172C3/41C17(KX4):C472(C0441C027(KX) 

IF C3Z4 < 1 OR C3Z > 8 GOTO 2820 ELSE 2830 
NEXT KZX:G0T0O 2760 

IF C4Z& < 1 OR C4&X > 8 GOTO 2820 ELSE 2840 
IF CZ(C3ZX,C4X) NX GOTO 2850 ELSE 2860 
VRZZVRX11:G0TO 2800 

IF CZ(C3ZX,C44):AX GOTO 2820 ELSE 28/70 

IF VRZ2 > G0 THEN RETURN 

G0OTO 2820 

DATA 1,0,30,1,20,10,10,20,1,30,1,1,1,1,3 


DATA 3,3,3,1,1,0,1,20,3,5,5,5,5,3,20,-1,1,10,3,5 


DATA 0,0,5,3,10,-1,0,10,3,5,0,0,5,3,10,-1 


DATA -1,20,3,5,5,5,5,3,20,0,-1,1,1,3,3,3,3,1,1,1,- 


1,30,1,20,10,10,20,1,30 


DATA 263,100,263,120,270,130,255,130,255,130,255,1 


40,255,140,270,140 


DATA 270,140,270,150,270,150,255,150,255,160,270,1 


60,270,160,270,180 


DATA 270,180,255,180,270,170,255,170,270,190,270,2 


10,270,200,255,200 


DATA 255,200,255,210,255,220,270,220,270,220,270,2 


30,270,230,255,230 


DATA 255,230,255,240,255,240,270,240,255,250,270,2 


50,270,250,270,260 


DATA 270,260,255,260,255,250,255,270,270,280,270,3 


00,270,300,255,300 


DATA 255,310,255,330,255,330,270,330,270,330,270,3 


10,270,310,255,310 
DATA 255,320,270,320 


455 


456 


3010 
3020 
3030 
3040 
3050 
3060 
3070 


3080 


DATA 310,355,310,375,350,355,335,355,335,355,335,3 
65,335,365,350,365 

DATA 350,365,350,375,350,375,335,375,365,355,380,3 
55,380,355,380,375 

DATA 380,375,365,375,380,365,365,365,410,355,410,3 
75,410,365,395,365 

DATA 395,365,395,375,425,355,440,355,440,355,440,3 
65,440,365,425,365 

DATA 425,365,425,375,425,375,440,375,455,375,455,3 
55,455,355,470,355 

DATA 470,355,470,365,470,365,455,365,485,375,500,3 
75,500,375,500,355 

DATA 515,375,515,355,515,355,530,355,530,355,530,3 
75,530,375,515,375 

DATA 515,365,530,365 


Raffles 


Bir oyuncu bilgisayara karşı. Yalnız klavye. 


'RAFFLES by DAVID RADISIC 
"copyright (c) AMSOFT 1985 
' 


MODE Ö:INK 0,0:BORDER O:INK 1,26:1INK 2,15:INK 3,25 
INK 4,14:INK 5,24,12:INK 6,g:INK 7,0:INK 8,0:PAPER # 
147 

delayz-200 

DIM objx(5,20),obijy(5,20),gemx(5,20),gemy(5,20) 
GOSUB 380 

GOSUB 720 


pause-200:GOSUB 340 

IF gems-0 THEN GOSUB 970 

PEN 4 

FOR 1-10 TO 12 

LOCATE 15,i:PRINT"SWAG"; 

NEXT 

PAPER İ:CLS#2:PAPER 8 

GOSUB 1170 

GOSUB 1230 

GOSUB 1370 

GOSUB 1510 

IF rm-0 THEN GOSUB 1900 

IF dead:0 THEN 160 
pausez100:GOSUB 340 

PAPER B:CLS:PEN 1 

LOCATE 4,3:PRINT"Do you want"; 
LOCATE 4,5:PRINT"Another game"; 
PEN 5:LOCATE 9,7:PRINT"Y/N"; 


iİ$ZUPPER$(INKEY$):IF 1$<>"Y" AND 1i$<>"N" THEN 280 
IF 1i$-"N" THEN MODE 2:PEN 1:STOP 

RUN 

IF dogz1 THEN RETURN 
dogz1:dogxzminx(rm):dogyzminy(rm) 

RETURN 

FOR loopz1 TO pause 

FRAME 

NEXT 

RETURN 
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458 


380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 


580 


590 
600 
610 
620 


630 
640 
650 
660 
670 
680 


690 
700 
710 
720 
730 
740 
750 
760 
770 


rmzl:xpz6:ypz4:man$z-CHR$(224) :dog-(:stolen-Ü 
SYMBOL 240,8,8,8,8,8,8,8,8 

SYMBOL 241,0,0,0,0,255,0,0,0 

SYMBOL 242,0,0,0,0,15,8,8,8 

SYMBOL 243,0,0,0,0,248,8,8,8 

SYMBOL 244,8,8,8,8,248,0,0,0 

SYMBOL 245,8,8,8,8,15,0,0,0 

SYMBOL 246,8,12,13,14,12,12,8,8 

SYMBOL 247,8,12,12,14,13,12,8,8 

SYMBOL 248,8,24,88,56,24,24,8,8 

SYMBOL 249,8,24,24,56,88,24,8,8 

SYMBOL 250,0,0,255,129,129,129,255,0 

SYMBOL 251,28,20,20,20,20,20,20,28 

SYMBOL 252,0,0,255,255,255,255,255,0 

SYMBOL 253,28,28,28,28,28,28,28,28 

SYMBOL 255,195,165,60,126,90,60,36,24 

ENT: 1512,-4,1 

ENT -2,-1000,60,-3000,40 

ENV 1,10,1,5,2,-4,1,2,-1,20 
windu$(1)STRINGS$(2,250):windwu$(2)-CHR$(251)1CHR$(8 
)#CARS( 10) #CHRS$(251)4CHR$(8)#CHRS$(10)1CHR$(251) 
door$(1)-STRINGS$(2,252):door$(2):CHRS$(253) *CHR$(8) 1 
CHR$(10)*CHRS$S(253) *#CHRS$(8)*CHRS(10) 4CHR$(253) 
suitch$(1,0)-CHRS$S(246):switch$(1,1):CHRS$(247) 
switch$(2,0)-CHRS$(248):switch$(2,1)-CHR$(249) 
gem$—CHR$(144) :obj$:-CHRS$(233):dog$-CHRS$(255) 
hit$-CHR$(246)1CHRS$S(248)*1CHRS$(247)1CHR$(249)1CHRS$(2 
52)*4CHR$(253) #CHRS(250)1CHR$(251) tgem$tobj$*tdog$ 
RESTORE 3010 

FOR iz1 TO 5 

READ minx(i),miny(i),maxx(i),maxy(i) 

READ dir(i,1),dirCi,2),dir(Ci,3),dir(i,4) 

NEXT 

WINDOW #1,minx(rm)-1,maxx(rm)$t1,miny(rm)-1,maxy(rm) 
*1 

WINDOW #2,1,14,1,25 

CLS #T1:PAPER #0,8 

RETURN 

ORIGIN 50,50 

INK 6,24,12 

RESTORE 3060 

GOSUB 1280 

LOCATE 3,20 

PEN 5:PRINT">"; 


780 


PEN 1:PRINT"Escape Routes"; 
PEN 5:PRINT"<";:PEN 1 


LOCATE 10,2: 


PRINT"IN"; 


pause-300:GOSUB 340 
CLS:LOCATE 1,3:INK 6,0 


PEN 1T:PRINT 

PEN 2:PRINT 

oors":PRINT 

PEN 3:PRINT 
COFF)" 

PEN 3:PRINT 


CON)":PRINT 


PEN 4:PRINT 


man$;" You The Thief":PRINT 
LEFT$(door$(1),1);LEFT$(door$(2),1);" D 


switch$(1,0);switch$(2,0);" LightSwitch 
switch$(1,1);switch$(2,1);" LightSwitch 


LEFT$C(windw$(1),1);LEFT$S(windw$(2),1);" 


Windows":PRINT 


PEN 5:PRINT 
PAPER 1T:PEN 
PER G:PRINT 
PEN T:PRINT 
PEN 5:PRINT: 
PRINT" Use 


gem$;" Precious Gems":PRINT 
:PRINT obj$;" Obstructions ":PEN 1T:PA 


dog$;" The Dog" 
PRINT:PRINT 
Joystick'":PRINT" Or Cursor keys" 


dummyzREMAIN(1) 
AFTER delay*4,1 GOSUB 340 


RETURN 
! 


'Generate Gems/obstacles 
, 


FOR room-1 TO 5 
gemr-INT(RND*8)t2:objr:INT(RND*10)45 
minxzminx(room):minyzminy(room):maxxzmaxx(room):ma 
xyzmaxy(room) 


FOR iz1 TO 
XZINT(RNDAX( 
yzINT(CRNDA( 
gemx(room,i 
gemszgemst1 
NEXT i 

FOR iz1 TO 


gemr 

maxx-minxt1))*tminx 
maxy-minyt1))*miny 
)zx:gemy(room,i)—y 


obijr 


XZINT(CRND*(maxx-minxt1))tminx 
YZINTCRND*(maxy-miny*t1))*miny 


obijix(room,i 
NEXT i 


gems(room)- 


NEXT room 
CLS 


)zx:objy(room,i)zy 


gemr:obij(room)-obijr 


459 


1160 RETURN 

11708 ON rm G0TO 1180,1190,1200,1210,1220 

1180 RESTORE 2670:RETURN 

1190 RESTORE 2740:RETURN 

1200 RESTORE 2810:RETURN 

1210 RESTORE 2880:RETURN 

1220 RESTORE 2960:RETURN 

1230 PAPER Ö:READ rm$:PAPER 8 

1240 WINDOW #1,minx(rm)-1,maxx(rm)$t1,miny(rm)-1,maxy(rm 
)41:CLS #1 

1250 PEN 1:LOCATE 1,1:PRINT SPACES$(19); 

1260 LOCATE 1,1:PRINT "Room :";rm$; 

1270 IF lights(rm) THEN INK 7,10:INK 8,10 ELSE INK 7,0: 
INK 8,0 

1280 READ a$:IF a$-"END" THEN RETURN 

1290 IF a$-"D" THEN 2180 

1300 IF a$-"W" THEN 2260 

1319 IF a$-"L" THEN GRAPHICS PEN 1:G0T0 2340 

1320 IF a$-"S" THEN 2420 

1330 IF a$-"F" THEN GRAPHICS PEN 6:G0T0 2340 

1340 PRINT''#*XxERROR #*&&"; 

1350 STOP 

1360 ' 

1370 'Display gems/objects 

1389 ' 

1390 PEN 6 

1400 FOR iz1 TO obj(rm) 

1410 LOCATE objx(rm,i),obijy(rm,i) 

1420 PRINT obj$; 

1430 NEXT 

1440 PEN 5 

1450 FOR iz1 TO gems(rm) 

1460 LOCATE gemx(rm,i),gemy(rm,i) 

1470 PRINT gem$; 

1480 NEXT 

1490 PEN 1:LOCATE xp,yp:PRINT man$; 

1500 RETURN 

1510 xf-0:yf-0:PEN 1 

1520 IF INKEY(0)<>-1 OR INKEY(72)<>-1 THEN yfz:-1 

1530 IF INKEY(2)<>-1 OR INKEY(73)<>-1 THEN yfz1 

1540 IF INKEY(8)<>-1 OR INKEY(74)<>-1 THEN xf2-1 

1550 IF INKEY(1)<>-1 OR INKEY(75)<>-1 THEN xfz1 

1560 IF xf-0 AND yf-0 THEN 1630 

1570 LOCATE xptxf,yptyf:ht$-COPYCHRS$S(#0) 
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IF ASC(ht$)>239 AND ASC(ht$)<246 THEN 1510 

IF ht$<>" " THEN 1660 

LOCATE xp,yp:PRINT " "; 

PAPER Ö:LOCATE 15,5:PRINT" "ZSPAPER 8 
Xp3xXptxf:ypzyptyf 

LOCATE xp,yp:PRINT man$; 

IF dog>8 THEN dog-dog MOD 211:IF dogz2 THEN 2554 
6G0TO 151ğ 
hitzINSTR(hit$,ht$):charzASC(MID$(hit$,hit,1)) 
ON hit GOTO 1690,1690,1690,1690,1750,1750,1850,19ğ 
0,1970,2090,265ğ 

60TO 1600 

IF hit>2 AND hit<5 THEN charzchar-1 


IF hit<3 THEN charzchart1 

PEN 3:LOCATE xptxf,yptyf:PRINT CHR$ (char); 
Lights(rm)z<l(ights(rm) XOR 1 

IF lights(rm) THEN INK 7,10:INK 8,10 ELSE INK 7,80: 
INK 8,0 

GOTO 1510 

IF xf<>0 AND yf<>0 THEN 1630 

IF xf<B THEN dirz4 ELSE IF xf>0 THEN dirz3 
IF yf<0 THEN dirz1 ELSE IF yf>0 THEN dirz2 
IF dir(rm,dir)--1 THEN 1630 ELSE rmzdir(rm,dir) 
IF dog>G8 THEN GOSUB 310 

IF dirz1 THEN xp-6:yp-maxy(rm) 

IF dirz2 THEN xpz6:ypzminy(rm) 

IF dirz3 THEN xpzminx(rm):ypz13 

IF dirz4 THEN xpzmaxx(rm):ypz13 

RETURN 

IF xp>5 AND xp<8 THEN 1880 

IF xp<6 THEN dirz4 ELSE dirz3 

G0OTO 1780 

IF yp>13 THEN dirz2 ELSE dirz1 

GOTO 1780 

PAPER Ö:CLS:PEN 1 


LOCATE 3,3:PRINT"You have escaped"; 

LOCATE 9,5:PRINT"with"; 

IF gemszstolen THEN LOCATE 8,/:PRINT"ALL"; ELSE LO 
CATE 9,7 

PRINT USING " ##";stolen; 

PEN 5:LOCATE 9,9:PRINT"Gems"; 

deadz1:RETURN 

LOCATE xp,yp:PRINT" ";:xpzxptxf:yp-yptyf 


461 


462 


1:24 

iz1t11 

IF i>gems(rm) THEN 1510 

IF gemx(rm,i)<>xp OR gemy(rm,i)<>yp THEN 1990 
IF izgems(rm) THEN 2050 
gemx(rm,i)zgemx(rm,gems(rm)) 
gemy(rm,i)zgemy(rm,gems(rm)) 
gems(rm)-gems(rm)-1:stolenzstolent! 

MOVE 400,1504(stolen*2),1,1:DRAW 520,1501t(stolen*2 
),1,1 

SOUND 129,248,10,12,0,1 

GOTO 1980 

noisezINT(RND*15) 

SOUND 1,3000,10,noise,0,0,10 

PAPER İ:LOCATE 15,5:PRINT"Crash ";:PAPER 8 

IF noise<10 OR delayz50 THEN 1630 
delayzdelay-50 

dummyzREMAIN(1) 

AFTER delay*4,1 GOSUB 310 

GOT9 1630 


'Draw doors 

! 

READ no,dr$ 

IF dr$-"V" THEN dr:2 ELSE drz:1 
PEN 2 

pic$-door$(dr):GOSUB 2500 

GOTO 1280 

, 


'Draw windows 
, 


READ no,wi$ 

IF wi$z"V" THEN wiz2 ELSE wiz1 
PEN 4 

pic$-windwu$(wi):GOSUB 2500 
GOTO 1280 

, 


' Draw lines 

, 

READ x1,y1,x2,y2 

MOVE x1,y1,,8 

DRAW x1,y2,,Ğ:DRAW x2,y2,,0 
DRAW x2,y1,,Ö:DRAW x1,y1,,0 
GOTO 1280 


2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 


2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 


'Draw switches 
, 


READ no,sw$ 


IF sw$-"L" THEN swz1 ELSE swz2 


PEN 3 


pic$-switch$(sw,0):GOSUB 2500 


GOTO 1280 


'Print char 
, 


READ x,y:LOCATE x,y:PRINT pic$; 


nozno-T:IF no>ğ 
RETURN 


PEN 1:LOCATE dogx,dogy:PRINT" "; 


man$—CHR$(225) 

IF (dogxz-xp AND 
ptyf) THEN 2650 
IF dogx<xp THEN 
IF dogx>xp THEN 
IF dogy<yp THEN 
IF dogy>yp THEN 


LOCATE dogx,dogy:PRINT dog$; 


SOUND 1,0,RND4*4ğ 
G0TO 1510 
PRINT"SNAP"; 
deadz1T:RETURN 
DATA Hallway 
DATA L,64,308,22 
DATA D,2,H,6,3,6 


DATA D,2,V,4,12, 
DATA “SİL ,Aş11 
DATA S,1,R,9,14 
DATA END 

DATA Lounge 

DATA L,2,308,258 
DATA D,1,V,10,12 
DATA W,1,H,6,3 
DATA W,1,V,2,12 
DATA S,2,R,10,11 
DATA END 

DATA Dining room 
DATA L,2,308,258 
DATA W,1,V,10,12 


THEN 2520 


dogy-yp) OR (dogx-xptxf AND dogy-y 


dogxzdogx*t1 
dogxzdogx-1 
dogyzdogyt1 
dogyzdogy-1 


,10,1,2,31 


6,4 
22 


,10,15 


,4 
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2840 DATA W,1,H,6,3 

2850 DATA D,1,V,2,12 

2860 DATA S,2,L,2,11,2,15 
2870 DATA END 

2880 DATA Kitchen 

2890 DATA L,2,276,384,4 

2900 DATA D,2,H,6,5,6,22 

2910 DATA W,1,H,10,22 

2920 DATA W,1,V,14,13 

2930 DATA D,1,V,2,13 

2940 DATA S,1,L,2,16 

2950 DATA END 

2960 DATA Pantry 

2970 DATA L,2,276,256,4 

2980 DATA D,1,V,10,12 

2990 DATA S,1,R,10,11 

3000 DATA END 

3010 DATA 5,4,8,21, gi li 
3020 DATA 3,4,9,21, “151421 
3030 DATA 3,4,9,21, »i -1,-1,1 
3040 DATA 3,6,13,21,1,0,-1,5 
3050 DATA 3/6,9,21, -1,-1,4,-1 
3060 DATA L,64,308,480,10 


3070 DATA F,250,98,294,1ğ2 
3080 DATA F,250,306,294,31ğ 
3090 DATA F,390,94,430,106 
3100 DATA F,390,302,430,314 
3110 DATA F,474,240,488,270 
3120 DATA F,474,124,488,154 
3130 DATA F,58,240,72,270 
3140 DATA L,226,308,322,180 
3150 DATA L,160,180,480,100 
3160 DATA L,64,180,160,100 
3170 DATA END 


464 


a e Rl dal ğü ale ses ee al le Sail bd 41,69,205 
ABS aker esi re zikirle eyni se tee dlde sadak Kis dasdalalla si dansi çüalümdeBEal 99 
ARİLER peder soya iyii ei Küm ye ŞE eş a rel aşil ke EE İN 99 
| İG ge SE SE ENA O KEN EİMMPNEM EE MERAM EŞE EYUN 9,311 
AMSDOS) Sakin sü a10 8 ENE İİ li Aİ RE l 69,199,203,227 
AMSDOS hata mesajlarıniss svmoniesmilm dı 102 0500 0080000 ZİKİR ADEM aaa Gk 211,302,303 
AİN Dae öeilai slam si alsana esi Sall alamam era lee yeleli esi 100,353 
Animasyon (canlılık) s öss ölesi ae ören asian 15a ebe İNAN İZA İN eN ri A SEY Bee 387 
AND EOĞO) 2 sz 0 BEAN İSA İRİDİR AR EİD İSEK TENLİ Da İMLA Sİ 247 
Ahtensoketi.m3 4 sesime nssüseersusilikasinenyia dee ldeğs se Kesk domine demde yine Yapiil 3 
PV sürüye imza sezai ira geri sada ruble Sd skalada eiz ela Naam raki 272 
7 © 0 Ve e ie e Eyice ope EŞE EESEŞUENCENANMMİNECM KANE KİME GOREN PE GMEİDİŞ SONER ENE YEN 244 
Aritmetik ŞİSMİĞTEe sülale ka la dala sal Dü Sü 31 
Aritmetik-işlemler (LOĞGO):.5.. 3013000102005 İlel ge e VGİDE Ek Baze DİZLERİNE 244 
AG ii RE İMES SEİR LİME EDİ BASLİ BİLYE DEERE İZA LEŞ Gl EE 100 
ASİL Seas ne Serka ge mene yay dal ga an dark de yal saka ae dee 280,293 
ASCİ Karakterleri sine e ee Nia e EL İNİ ADL ERSAN la a al dale 280,281,350 
ASCİ. dosyalanır sos010083 00051000 ia SEA İLMEN 42,162,201,208,209,210 
ASGIL (EOĞO) siniz Sari sn e EDİLİRSE İLİ TİN GDEAML ER İNG A ca a da 239 
ASM e e yü sk üz Bü SİA ÜNE İSELEEİİ İSİNE İSİ ANİSİNA 232 
ASSIGN; SYS ie a EEEİİEİSARERİDü KEİ NOME GİYSİSİ DALİ MEZ Belle 190 
İN ei Süs ee a 5 a İS KE İNMEYE VON Saye zadeyılemsi 101 
AMOR sia DE BİNE BEN İSE İSEDE Se RİA EE SİNEME 0 LENA BİNER ga 92,101 
LİG nas e mak size kes Giri eca slam ni DEKA EER 223 
Bisen rl EA İSRA İRİSİ SMA İLİN GLENN EŞE 41,69,205 
İBANKEİND 2154 söze fn 01 ley e bi DUL lele Sn ae EAA İŞ İNU 80,334 
İBANKOPEN.. sise izesssderin 46050000 6 ELA re sa çala ea KİRİN TAYA AAA Süsü 79,332 
İBANKREAD 25586054 205001010008 0100210 İL eğ ço ve mii önü Zadar 80,333 
İBANKWRİBE: süsü 02 5008 2000000000088 İON 8 LAN İL lella SE Şİ A RUS 80,332 
BASİC ime nsl dansn ilaci ares nelerden saysasirüsi lekesi beiesieiide 22,97,304,342 
BASİC: dosyalari... .v540010100545560050000008 050000 DİESEL YRD EŞ 41,162 
Bellek bankası" 555508 41000001554 50008 SBA İN İLİAK ye Sele se aa dümrie 71,329,397 
BE iie erse 0 SİERRA e DİZ İİİ LİKEİT 240 
BİN Se e öm e ED Dİ İSİ SİSE KEGLDYİE İAİRAa arllelal pike safo sani sula si epie 102 
Binayı dosyalar; s2; suv seve sis 5084 en va ü001 öepiön psa sü b SUE SEVERİN 42,163,209,210 
Binary numaralar........................0.00000 00 eeose sesessesessessesessessesrssssrssessssessesessase 344 
Bit eee ye Ağ aa daş ale Gİ e ali eee si vere Bİr GER Te Ta Rİ 344 
BK sase 0202010 2000 000 EEE ADİL BAĞ 6 MİD ae çen ikmenanl duadan sh aamm 257 
Bİze ise i0d EEE 60000 00NEAİ 0 Bae Male ğe SİYON İT S0 EDİŞ e lü SİMENA 240 
BOOTGENE 5153001205000 sü e 0500 08 0 Bü BRE Rİ e İD AKDİ SİT RİN ES 228 
BORDER 55 1155005000006 010008 8000 0 RİNE SANA ALİLKLE Delay Yere semai küike enis 46,102,277 
BREAK sie. sesime venüs nü doi 0 5000000 0 REZİL 308 ER İİİ DİETİTİAN EYE 102 
BRIGHİNESS sö iatüz e en Sl e İla al a allel fe şü Base Esa 8 4 
BÜTTONP:> söze enapi oan Sise kale Gu se ak YAY ŞEN elen ese evren inilen SARİ 265 


AT ie SİİR Nel deydüğe ke ladeni İnel ila keleeiebli ee iesi 103 
GAPSLOCKE Bi DE İİ BİRİNE İDİM KİBİR DİZESİ DESİ İMERA NE 17 
AT ürer sess nien SEZ RİZE Tal Rİ İŞE DUA Se da ŞİR ARULENSİLİS DAK IDANEE 40,103 
GAT (KASE): e eos e ele ire EEE KENDİ TİLKİ SİSEİSA SAD 0 GİREN ESAYAN BES 192 
GANCH sil EŞE MİES İLİDİR LİNEDİ SLUĞĞİ DİİL EAİKE ENLEM a 269 
8 e 0 e SEA Ni GERE  UPY çe MEYER YE YER 103 
€HALN, ((KASEĞ) üsti sün 5 0016 İZİ YA BU ER İKE İNEN EA a alna 193 
CHALNMERGEY 5506 00 ele b ER Ka ALBA A DERE İLİRİA ELİME AZUL Kaldi 104 
CHALINMERGE: (kaset) ssd ösen 0300011068018 20 RAE İLEN İEÜ ae 193 
GHANGER seske sözi 5009 a ESED Bar e DEMİ NİR EK EDİLDİK İSLER EİS ENLİ EEMASAĞLİLA 263 
OLAR 5505 EEE EO ERER Aİ iz ai asla dallas 240 
GEİRS near li erimek delale isi alias Beakeliie beklen vaksallee deli! 51,103,351 
İNT e Rİ İSEK İĞDE SİDE İİNDE SİNDE SEİR GİZLEDİ SİZİNLE SELE 104 
GİRBANI sekans Bi alar e ARSİN DA İDARE İZİ İRMLRİSUN GERİ dalla) Saçak ida eğe 253 
BAR 55055051000 ER BAKİN SERİMİ RENO A DİA 105 
GEBAR İNPUT eee 05060 İDİL GUR E GEMİN İZA İREN İZ LİN 105 
BŞ e eee ike e NE e ERE ÇE MK EEE EN 105 
GBOND sele anl pyaar dalak dayansa Boral Söze nde Die ine 209,210,230 
GLEOŞENNE sem e rl Sele an ON GAİN BİN ELON DON a iş am SUE 93,106 
GE EOSEİN (KASE) üs BU BİLDİ SİLER İNEK ASİDİ SİSE İNEN ZE 195 
GOSEOLM inerler Hari ebe eme edu le ie BAM keme iiye SADA SANİRL İDİN e sasi SESE 92,106 
CLOSEOU:I (Kaset) sisi 4650 EE İİİ DİNER EE İL a hi 196 
<8) İİ) iş GENE EE çi e GE EE RM e AN ERK EYE ME PL SE YEAYENEL ES YE SPEŞL EE 18 
|) De EE ŞMME Gore EMME NERE ME NEYE e Di le YER ELEK NE 22,106,275 
© pi EE e PERRY PEN AE EE ME e MENE SP YEL SERE EYAEYMM YE Ye MER EYALOL RE MŞE EE 268 
ON a Ra LR Rİ ARM EEE İSEDE lee Yo mein 223 
ON seansa sella de İsmi 0ğ Samed Sila e A EĞEN alen 106,300 
GOÖNTENTİS 5 5551421311208058100 00 LEVE OE İON DEV  lma E BURağAANU 211 
CONTRAST Kontrol ssksse2 leri Bili rae ella aa an A le ak mn ei e EE İTE 4 
GOPYERRİ zi Ba EİN A TEN DİR HESİRİER İİ Bel Gi İLME YEDİRİR DELAY AM EKE 107 
COPY BÜŞÜ 25 e İLİNİ A ERİ DEAR ikale LARENDE İK AN 27 
GOPYON ssl e A Rİ DEERE ERON SL Nea sa Tamimi sne İREM Erme 251 
GOPYOREZ si sile die s0 ale isa be dala dari ema era e İİ ENİ DESEM İNLE 251 
GOS5 sami sğder ksilen daki Yasaklama NURU eledi Bİk ida MİD Ye allame dö Sb siomgis 107 
GOS (LOGO). 100 a e İLK El SENE BİLİN SA GORE Baik 0 İLEN 245 
GOLUNL e mere Seki sie e dn S0R00 010 nış arala ae DOON e alanla sale e 240 
ÖPME e 5 0188 ie 8 00 e la ES Yİ İİ GM İT A İNU e DUY 213 
RİNE 272 a bel ARAS İRİ EİN EİN OR İN 76,191,228,234 
İEPME e 5 lü SİRİ CİN İİNDE KESK İLEN MANA BA aa 36,205 
REAL izi e e Se İĞNE İİ eli EİT DOŞ EE KM NA ESK Rİ İL ae e amsmamzak ia din 107 
0) a e ee eee e Cİ Er EE Şeye GEO Eee EEE PR GERDİ ERİMESİ ENE 223 
SİNA EN EEE BİNİ LAKE İİ İRİ İMES EİN ENLEMESİNE A ae 253 
GSAVE ae EMEA ZE Gele EDİNİRSE Laila selesi 209,210,230 
Kİ zere sa ŞE es YA İİ e Ela e le LA A DE a EM Sn İİ b 251 
GURSOR sa si ese si ee ni mike GEMİNİ ESERDİR ee TASİN iee SİNSİ MLİ AZAR 108,275 
GURSOR (EOGO) 4 öl air la lele ila eline ada al arar al e 252 
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Data TOrMAtir erlere se mu Set iy de il Belleia e la yak LİK İMAR GB BRLA EİD 38,228,318 
İD AE eee EA KERE İRİ ündie KARİ SL BİLME TA GAR SEMEN DİNEN Ee ALEL De 226 
1) B 1 e EYP EEŞ ŞUY> GEREN EEE SEAS SONE EEE ele Me SM EPEY SAZ 232 
DEĞİ: mass ZE isik se Ede neskimelzeiikenİledE e SİRİl ibare daliaesUleEaL Eli ele 109 
| | 2) EŞ Şe KEESİNEN CS EESlE BE çe ERE ANE e Şi DE SEE ERAS EYREEİEEE EMİRE 272 
DERA aker Serel yan bes s3 sa rmi çe aa al ali İSMİNİN SEL Sl rl Gaal Bes 263 
DEF EN: 0150560660001 660580 0006 GEZE DNDİNİDEOSAMİLA EDÜSAEĞESAİEAAUEES İÇKİ GELMEYİN RI 109,301 
DEFİNE... üvisörenss e 0003 0780 VEEE 08010 G0 BİNİ TEDES EİREREUN ONUK 0 de ÖENMLİ EKA Mi İSE 249 
DERİN TS sasi a m ke kaan GA ie ve ale MEY ae SAYEN da 110 
DERREFAL > ein 8 Da Baki Aİ SA DAM LA İLİN dağa EİN ARTA ASAN al iDia 110 
|) 28 eş Ni ee ir EE ERP Be Me SE GOP e ŞEN ŞE KE EOYEEE SŞOEY EU 111 
5) GER EE DE SRNKE ŞE ETİ Sl ENİŞTE PEŞİ ENSEYE EŞE ŞEYE ELENEN 111 
1) 9) Öğ KE 1 BESEN G9 Fi F ŞOR YP SE SEE EEE KAE YEMENİ EŞLYE ES PE YŞMNEKEEE 16 
DELETE seen ğe is EA EEOSE İKİDİR İSİNİ TAİL EENDESİ EKEN AREL 111 
DEPOSUL: 2. eee ni Bilema Binme yea dimi amel BİRA yakal AESEDADA LE MO PETEK İN sake ERE 211 
DERR: 414010014 0 e Lee DERİ ei bam RRA SALE NU eye A ANE 112,302,303,304 
DEVİCE; 5356 ilime vole Şasa e GÜZE BİNEN DİBE AL BASEN meri STAR a Tü vü deeri irin 224 
Dİ 030006 İLEDİR İİ YEŞİLE İZ TEEDİYİRE İREN EMİL ONAR AREİA İLERİ 112 
DİM. sess sesi abiler sise ae öeitiüemini Bsesisesiidisimmizleka kile yüne roağbae 86,113,300 
İDİR süsen eee BİLERLA GEİER EİN ESERİNİN İNE RANİERİ DAMLATAŞ AANRDAR KANİ 206 
DIR (GP/M). sün sösessuszizeareziessereiasesiiyksiekeyus se drl yağa aLi Bese Lee ra Ti yes 36,216,224 
DIR. MLOGO)sE sisle lie dele eee dre a oEis SaNa Yi isuaaikeisDelaeğai sidekeleninsadeğleykeai 263 
DIRPİC isi 8846 EL İSME DEDEN GURU İDEA İKONİK İL Şa Sands lüriaa eni 264 
DIRS sürse 5 5e İİİ EY İSMİMİ YEİS REDEİLENUE SOLA İLA Ni Zel ENSET SLEALESN 217 
DIRSYS <3 5051205000100 YİNE DE İLİ İİ İLÇEDE GENE SADİYE A EA EŞEĞE 217 
İDİSG ir 10 ERBİL EEE İNİNAL şe ede Ba EGO İRİŞ ENKA Meal 71,206 
Disk-sürücür..11050100 00 EE DORE ER İİKİ YESEK SİN 233 İREM seir 8,14,71,201,310 
Disk sürücü İl soketi. gedir kesesi sieserii ire yd e şir sei vezir zi gss kris yaam sima enlslei sie 310 
| 5) LR hr EE NM DE RAP DNİMK EE eek NE GRİ YALE REEL NEME AE GREK 71,206 
DİSEKİMİ2 ise sere eraörensedake SESEBENYE 0S Bele EE ene Sie bümlekdE Barda lde dei enden Çağlar 76,232 
DISEKİT3. ozmen eda sli sleep isime Keremi değse miz siessesağmğaksılnii ersin 37,71 
Disk organizasyonU... ğesiis01 söe00si esine e ep BNN BEŞ İE ELE YİTS ELMALI DESİN LAİK 317 
İDİSC OLM engeline retina ÜRE ale Sese DERİDİR SUYUN KİA ERE RE RLEMNLAENLA 71,206 
Disket imis söve irem sanay sis is ovale sie dü aeiyüssi ie Bane si Vision EREM id inde VAMdA8 12,35,183 
DOT: se dös re 0s İş İN LAK REİNA a e İL Mek sade B Na Re elm kur sönerek iie 253 
| b, 3 GM SEA AŞ Yer ME ETLE GN PU SNPE ERİR 254 
DRAM iin isen 2025080800020 İON RE A İZE ENİ YİNE VALE DES SD a Se İNŞ A Sİ 54,114 
DJ» 97, > GE PİŞENE ENİNE EE JE GİNE SP İMŞONE SEO SORAN İYON AE Re SOR YNENME YERDEN İEUEEE EYE 114 
İDREVE 2552742 1510517550180014 E1Y ZEKİ ELE Ş LUK OMR İYOYSSDNEeN Boa SAYESİNE İNG Şa 206 
DRIİVERS, -GGSX icin eke EEE REİNA DELİYE AK İLİ İRMİSSNSE KA ANS 0 EŞE 190 
DE; OG E özelsin iie ai EİN ESUA KYA GERİRA OUA şasi Be eyes rai Ase Değil dos 233 
DÜMP:::,1.5545015501655142311 05000054810 be 0 ğe 0 Ge İNS İİNE e eN İYUk 0 ESYA YİN eee Gİ 232 
Düzeltmez. sise iesöseleze eğin eee TİR Ke salimiden Ke Be elsi me gede Ya ESNEME SDAİ LERE TELUİNE 26 
Düzeltme: (LOGO); sese san0l vede AREL e NESE SENESİ GARİ REASÜRANS 251 
E 
BD siri EE Ba DESE GERGİ İLEDİR ADL İN LALE ENE 232 
ED (EOGO)iss521 00 50600 ĞİLE YES TİS İİ İSE İESN Si SALI AS Ee 251 
EDALL 55.105000 01170668408030668 0001018 00001000 EL A Öl ARİKAN ekli ei aliil sedn 251 
BDE e seen dek DEE Ze DAME LAZLAR ELİ ZA İİ RRİNNE GE A BERLİN RE 251 


EJECİ bütonü ss ser Yar a ee ea EĞDİ İİAB SİİRİ ERESİN EGALE e 14 
12) ÖL eri Rep Geze MERE EEE EYE ENEL GAYE CMENŞİYEEYEY MA GE EEE 28,116 
EMPİİY 15 60ö011050510005480 000008 BEADS 0000 İDE BİDE ASEL İYİSİNİ ÜRE EML a ük 240 
SEM Tören iseler ğa SİROZ REİS RİMEL Gia SIKAR aş KAİDE Mİİ ödenme sile seiie 272 
END sml G0 E KURE a 2S UR YE SORUM YEL UNU ELLER men DALA Si TEE Alie 116 
END (LOGO): ee reededeiesponeğ dale eli en Buelel saree DieİEEL İMES EREN DARDA 250 
ENLİ SİKİSİNİ İİİ ba TSİ NU KUZDERE Bleşaieşbağdan 272 
ENT sise si ee 8 0000 YEİS Du GE A GA İSİNE DENEK İS ez Sağ İY EU YENİ eğe 66,116,375 
ENİ XLOGO) misss eses saya m0 dele BİNME Ub vü Gila BY a nsz davi valün ELB eses İDİZ 267 
ENTER: HUŞU ez ğü 00 06803454008 ÖİB İZ OZET İND v6 GİVE ea Va sü 4 16 
ENV avare sre delen 6100008 Dak Tea Se AİLE OR DİS SELA KENE İLA KAAN DE LİNET KEŞ İN 64,118,372 
ENV- (LOGO) sü süz ei ERİ 0D DUZ ROD İİSE İYELİK İNİ e İİK ma gelde 267 
EDE ssk sün üüemsiğöe sess seksi de 100 en ŞER İŞ YARRA BONE YARİ ekle sa 119,195,205,301 
EDE (GOP4M) söze ies si sss seval ns aşa Gale gü öng das ADYak Ereni a VEB ke Balak Bü 223 
ER ii ekilir 10508 610005200017 000050000 İNU GE Gi e ka BUS AİUR S0 Gala as ea GAY pala şüe eda Kis 260 
BRA:155318. ae ön Ga vs an a GE Gİ EİN ERİŞ Desa all Zere Ve Sleek DeLi 217 
İBRA si erin e Bk İL O İN YİLAYE Sİ ön İNİ AS e ZYE Yi See SENDEN ZA İEKES D9 206 
ERALL eyes seylammeni mese easy savan unu kasda klz ae DE TEL EEE AE Se dai ere kisak 260 
BRASE >-502504101615010152 ÖTE LD BELA RİSE Yİ sa kli aa ii den adak 120 
ERASE XGR7M) sie sakes sesime sik Rika iadeli aRE zl Be saz kibanmiy degeri 217,224 
ERİL... see OE Gi EL Bae le NEYE LEE Ya e lam lan Diem ii Seda ği 120 
ERN Sem seli bee lisp Yan pane depar kümes Sam si sürede eee teke Si Ea de SEE DELİ 261 
BERR: 80 dane e A SONA NAAR e EİD ASL Dee söaeee ola ikea 120,304 
ERRACT: 5. öbstesesse siusetleierl selesi emdi öaaeez RABİ İSAM saa ia sğieeesemerye 271 
ERROR: 2: isra edeeğ mea iMlmaDie see Val gmail mean sudan an Mi akuda dep e ia Sresi seran 21 
ERROR (LOGO) zle yeni Bele isigi ale la Ke BUNE İŞ a İs re sa elisa 270 
ESC tuşe eg Bale Bed air ae kasi Haya Midas ESİNİ aa EEE 18,143 
EVERY: ii eler me anlara sie seir yasada gişe Beslen a özek asia era iz Deek 121,364 
SEXAMİINE 55 00 ei üne EEE Şe OY ESİM AYDA HAL LİĞe Dame GİTSİN Me ERAY KİEİ SE 271 
EXP. 5401005111100 585 EEE SEE glial bi sünepe bila Di ES EE AN 122 
PALSE sia nlp Sel İN Dİ OLEY Dea a die mea ei damak las öy 05 211 
| © e Me ec eee imi ei RİNE EE MEME MEŞE SİEMENS YE ME 257 
| ağ a 8) Da MN Se ik ir e EN EB GİRE Ee EMİ EE DOLİ 254 
FİLEGORY siseszü iie süsü EEE İLETEREK GİREN OL RME EEE 191,229 
o EŞ Ee ie KEŞ MENİ SENEM EE e EN 57,122,382 
FİLE, (EOGO)Essseeeineeğe 525006 060 e İS ERNİĞSELD SV TARAİİŞİTEZ DİNE BOYLE LREL ade 02 254 
FİRST sensei sess 204 ö0üü 00 80406506 v00000 EŞ OYUYUGEZ A DLLONER GEN ENES AES LİEBE ELLERİ Sele 241 
İK e e ORD SLİME EDESSA İNDOOR İSELER SİLUETİNİ 122 
Kloppy: “disketses34 505) v50000040100 eğ FDA Sa BADEM el ada Gabe e Bü Bask e Ze e 11 
ve ER EEE MİDİR ESEN e KE ŞEN MEŞE KEDİYE YE YMY KESE GG YELE KAP 123 
POR sise. süsü iss elan iaş dama eaRi RESEN NDE RU KERY Ğİ İRA EDA ayl İYİ 29,123,301,351 
Förmat (DEÜ): 2. Satar Le ELELE ŞİR SİLK SE EA GER GREEN e 154,357 
Formatı(dısket) er sesli seride eee Süs BASİMA KİŞİNİN EDERSİNİZ NND 35,37,73,228,317 
| e 9 ap ener Gere eEE çe EE eee ent ii EŞ NETA A Epi ear He Eril SEL K S 241 
FRAME. . eses ğe öp SİİR 6 İİİ İİ İL AR İNE EDİL İRİ AİN 53,123 
| 2 4 DD PERES NEY TM UR ye POMEM YENMEK SOME PAK YERE AFYON EEE EEE 124 
| e EEE ERP RÜDN DERE ii pi ESERİ EŞ NRNSDCE SENYE EŞ ÇE EA SEPEZ EEE EMMA 255 


GELST eli 0 be 05 EEE ÜYAYEİ SESİNİN SEE EDİBE DA AN SUR ZA a ÜN al NDE 262 
GO ariel Si ee BİSEY İT Sk AL EYİ rü İSİNİ SEN NA TEALA Ki 268 
GÖOSUB: isleri iti seneyi 0060 ERİR SONAİ İİ EMRE EY EE DARE İTE ear AİA NA 29,124 
GÖT aeg sa iğ SN EAA İLE e İİ DİLERSE GULEN aa leme ni ea 3 23,125 
Grafik s3 sreeökasmi mia salise inal oki kk İsa lik bain Salak Bük DİE ASİ Bema 44,51,382,390 
GRAPHICS. PAPER 4 önü lsd Garez zi laşa irana ile sade yağınti ody said dalayieağan 125,384 
GRAPHİCS: PEN: 510002 #8050 İRAN ENE NESE RİO Eva EE ere 59,125,382 
GPROP ese Se öe EE İLİ Rİ EİN Esa ke esli ire SENİ e BEKARET eke Evli 262 
SK a seresaness Bi svemşiksi sibesesmma eğ samekksii eğ kialksi başlan ğe a ayanuş döakaüebe şesammemki rule 190 
HELP een eslem is eee meme anl ai ese slide lek e ie ayakla Bek Ye le e ll 185 
HEX$aez isyeri sake size Teli rae öğe süs likle semada simelelileğe sie sisme lumia 126 
HIMEM:. sesime 023 0620 e EŞ 08082 e MİKİ ÜYEDEN ÖZE SEA DİZİ e DİLME EMMA EA ORağe 126 
HÖME:X a5: özer las ira sineme likes ilani lere Selmi ağl elisi sleisolnre 257 
e (4 YE POE GE EEE EERANUN DUŞ TEE Y RA ENE GN 257 
IBM” format. 5 0 dans sizi seçssiiz kabze elsa olikemseiia da Sekili lisan 228,318 
| A GRİ KERE ERDEE NİGAR Mİ SE İŞ Gi SORTİ GORE MEG YE EEE YERİ MEKE e 214127 
TE EOGO) ei Ai Nese süse vuşokazalalasmlpalı İİlMbe008 BeN SUSMA 268 
vE YAN ENE SE Şe KE POL AP EN PİE MEK KOY EY 211 
İNK 2550070072020 LS İNİ Y 0Ee  aDU 3 ülken ö ğü BE İDİ NON BEDRİ İTS EAA 46,129,277 
İNKEY—. 2.si söz ka İY BRAD Ede Male abes öea KADERİ İnen NE Le Se 128,316 
İNREY$ 0507100000 İLDE EE NEME EDİNİRSE TEZEL İMAL Şar e İYİ GEZ 94,129,316 
İNP 4 söze Bee 0D e DA Kn DENE ÖR HOKEY KİRİ BEAR Ee KEL İSMET YENEL 129 
İNPUT: 21 lele e ZU 208088 2 ms böle Eia sum Süeda vii süse sE 24,86,129,300 
İNPUT (Kaset). sisi ererenksşer see sayede #55 SEDA İP TEMA KOMA a Ma Dame URİ ile kaale slelde MAZ 195 
İNSTR: sel serisinde LED LER A GANİ EYMEN ae Kİ. 88,131 
İNT 2 lesuğ bedii Bae ge Se SEO KİA ESİLA ELİA ADAR EİN he BUNUDA GAR ş 131 
İNT (EOGO) sise serenat e e SE Sü YEDİSİ SETRİ RESEN GUEST dele NEN 245 
TREM7 e sörmseiiveis vene Sesa den sün veni ee Gelenek SEY» TUNES ÜREME EA İŞİ BERESİ DOSİİei 241 
A (© GA NCA RA SANER e SOLU GOL MENDE SEE EM İY EEŞREYİ 131,316 
Joystick: Komutür (LOGO) 050 i0e 000 0D İNİ İNE SALES TEEN KİMİ Ge AİLE 265 
Joystick: soket aaa Gram odaka yakalan seal değai UR MİL sizin Meliki a ie 7,310 
KEY esse 1 5e SARİ BESE İSA ETAMİN ATİ SİLİNTİ iğ e 132,294 
KEYDER. si; sesüsüeisi ense see Zvezda da İLEN 0 a ğin Be Hal iğ la Elini Seha Ki 133,294,316 
KEYP ierik sline S3 00 ESİNİ VE EE SİLEREK O DEE EOMİT SEE aa İYİ SİSE İNSANİ 265 
KEYSEĞPE iile er e sere nie Küs vanaya sase lela Side Ula a EYNZ ede ve deye a a 185,220 
KEYVSE DRL eses ee Bazal di bi imiağu bala sa Kyme me die Sama öy Ki SAYA SAT Sa ea 220 
KEYS,; WPoşsesüor süse. 408805 002401105804001 0002610808060 VEYE YU a İSA Se İNS ü e Ge ANNE 220 


LANGUAGE: sikis ömez sase ve EYE ŞEN Oİ SORURDUMUS OR ABSE BKM OZA SATİN GEKA 184,219,323 
ASIN 2s fer eee e SERER RNA DSMU EEE yea danla i KE İe RU DAMLAR a Aİ Ge e e 241 
| GN SR De KE NEİL BE ERİN MİDE Şe KİŞ DE YEME EE MANN Ee ERE Ee vee SAYİ 241 
e EM Şe ee SEE eee ee Keme peer KEY ÜE ŞE arel EYER MEMEK 133 
EN Eşya si ee İL a ER 2D a a e EUİA Sİ e al e eli iile Sude sele 134 
BA e MYOM OR e DEER EGE Ar İMECE MAYA e Re EEE SEPMEİEMDE MERE MEYER 134 
LİNESİNPİDİŞ 5 esse bea dar İİ GİS GUL da Za Ya TÜLİN DEYE eEE 134 
LINE' INPUT (Kaset). desise dede sessyoğusomuanzesa sai dede sese is sekei ll ekamkaimedağrz 195 
İSİ sin senii le sebe ana BAM uns kel Bü Sali dün ve dala Dia nede iL 23,53,135 
$$ © e e ARİN EM İT ACEM KİM e MERİ 242 
LİŞİP ime isime dememe Bazalar Balda alsel BEL İN DALİ Sak PLM da BATAR DİNR 242 
HOME; makes gsepideresila su dul des uda Be nie Sapa Ba BUZA VEE Eyle ila ala aya a en sele 41,136 
EOAD Kaset) is.ersss asim isi 215 Hesvezi sianseda oralarda Mü Gülek MALL damele Saz Dalaman 193 
BOAD(GP/M): se seen inde e EEE EN İDA ENSE ER aa ağa sade alsin eğe 232 
EOADEOGOY szsleneiabe bila AERO BASEN KARE ae das gal ak den kalka 264 
EOADEPİC ise aa asal genilaak baz ila a re EL EN İL a a ada 264 
LOGAL sezi saya dan sazdmla manda DReİeE ZAİN dal a GİBZA Da ML KAS eğ 248 
BOĞAMEZ e srmmesa kesre kel silis dama aaa l ike TN laa asil. sel 51,136 
BOGimi rem sireni ie güm eikee kb sie BENSTENENİ ELSE DİKE AYİNİ ekme OY m AE iu aa 136 
HOMO: selime sele lee im ERİYENE SERMİN UM EL BERLİN BEY MA NE De aa 137 
EOĞO sebe İLİ sali ba EE ELSE Şa alaz İl ne İLEN LA La 233 
| SER EE SAHİ MERE SDRŞ SEE MARİN Pe ŞE ESC RNK 222 
EPİ sürece sa e ge 208 Bü SİLİS GİY SLS Ga İZNİ GE aa 2 SAKİ İLe RDN e 242 
TES tse ğa se se İİ Bee lk e GM ALDANMA İL Zal e ame a ağa 223 
| İŞ ERME et Gele e MO İG EYE ÇE YAOMSŞERLOMEŞSIN 257 
EOWERİ essek KESEREK ÖK AMY ALA İRİSİ ANE BİLİN ei 137 
MAKE ee keser ek akis Sani OEM GELER e SS se ALS kak öle başda dal Sö kane es 249 
MASK çalar eee rek ia Bi e SD SİN ağa ra ane ale İL VERİN EMSA 137,383 
İMA X5 ee 60200208 0008 SE EEE İNNİ e UR ANNAN KENE Na ea ies 138 
MEMBERP: 3 sess be 00 082 08800006866 İNDİE Ke TN DEERE Ne BEYE eda MD 242 
MEMORY &ssössieöeee see üsse e Yü der öle dair TİME delisi 138,299,319 
MERGE ies ses02 isle 16000086005 Bİ EV 000 İSA e GO Si TEE aaa eee ada 138 
MERGE Xkaâset) sivi süs 0680 605000 RİK a ELİM İSEM KİR İLLER 193 
MİD$. Sese e sik BİYE DANİEL Ee RALR NUN e kas vi zeea ka 3 Hayale sesanssir de da si 139 
MİN: 51 Pia e Dal iü saa Sn SN e iin BİLA ide DAMA lar eN DÜ dara 140 
MOD & ser öö 1 380610500 05003 MZ OY Ee DİNER İNİ GUREL İLSİA SUYA VAKUM 34,140 
Modülatör vii se ie ELİ e İİ LENS BİRİ BİSİAD İMSAK Öğ alada üne kani 3 
MONİLÖK: 54 derik eee asena me iel e dola Döne ELİE SUE İNDİRİLME Nİ BEN NİL GİS Bella 2 
MOVWGOPMİS 2 üs 2870870000 YAD EİT DİE Şİ DELEN İNE AE SOMU SAN ve 232 
MOVE serseri mesi süs iy 25800 0 yin EE İMES İDARENİN DA SİNEK LU Te a 55,141 
MOÖMER& seye e Se De e e A ar laa İl aa pd plan Ge al ia 141 
NAMEP sss senaz süsen 3300 e 50 e ir OK EYES Nİ BAY ŞTİ İİ BİLO e İLAM a aa 249 
NEW rene sese süse sebeb Göğe kü KERRY NE SE BU a İSE LİU YETİSİ 142 


NODES ralli Bimel Sa AA a GİNE a aa a İş 238,261 
NORORMAT Suara eee 05 e par Gla sU EN İRİ a A ASİDE 261 
he 4 GE RM DO Şe ERE Eee FEEL SE REİPAKADİ SEY RİYA 143,354 
NOT (LOGO): rai sere Bayeüyesssytmün se baş ava elen dür usiaysi size idni GİYAMETLMATLİ 247 
NOTRACE vize meebüzi e öve içerisine demek Sİ ĞKOKDUYEYE SİRKELİ SNSNAA ENKA GAL A 270 
NOWATCİ:.. »seiyayaümeşei soğana seli peş ey ön ye GERE SABİNA a e İYekn se nidisi dl 270 
NUMBERR Eu. cez e Sü e KE EA LAME SARA DEAR EKA GA LİNDE İki le 243 
ON BREAK ;CONT::7sisv e ertssanişe aa ailayaa yda d2s Bale sala elden inüerkeeznepeBeresisia isimini 143 
ON:BREAK. GOSUBiieriaielzn. bime ide esasa lake e Nba deşik ide bü ağ 143 
ON BREAK: STOR. mii say kle ei Tem BASEL ERİR ED EDERMİ İK çün ea 2 Ai 144 
ON ERROR GOTO. sisi siüsie sess es seeney eril Da er la Bee EE Mele in Teresa 144,301 
ON GOSÜB: sisi erkese seske re Hüeeesi deme gag ami ölenlerden Kiklad 85,145 
ON GOTO inal siena eli BEBK 3 SKİ SİMLERİ SEBE SADA e STEEL İNAL TEKRARA B ele İNER Sen 145 
ON" SOGOSUB». 553 iceren side daye iu se0l mari si Beray ae sai eee İK e Za ida e 146,279,378 
OR mii eseri reidaşseyemineşiüm Hanaba oyenyaidike es san Besa adile oley ike sak çekemez 269 
ÖRENİN 2 Setaş eli ue aye Dz ÖR İl ya el Sl mel ELİ 93,146,301,302 
OPENİN (Kaset). rün danesi saa ulen Se EY SSU Z 6 ana ub çul bun araş ölen ğe pa daler 2s 195 
OÖPENOU Tesise sie ved eya vee Dea ali ele eid şe ME iş Glee ale Be 92,147,302 
OPENOUT (Kaset): sizle reader DELİYE EE Rİ Şale ŞE ÖZÜM RA NR GAM RİK EREK AYA 195 
9) ŞA A PE O İYİYİM PERİ EMEN KOMİ SETER YERE 147,354 
OR (LOGO) sise Banaz Biel Lie bel e ke Sekmen Sağa lik eda Hades eğe EEE Dae ALETİNE 248 
ORLĞİNE San saza am ayn anilan ae lere eek deme ta gesi beğen işa Ta 56,147 
LO O ke e çerçi ep Pe Ge emre SOMER zi e DM RO See KE KAŞE MAPS RA 148 
OUT (LOĞO) es, lirasi sein MEYE EMİL dalar rami e Sk ERMENİ LASSA 271 
e b) Bİ Dİ DESİN ERE AA SEP SNEUEPE ŞE MK A 266 
ANL e emi ei Saü SEM BR BEŞERİ aa ele emi yüke Gö ER BALİM SELİ Bai 255 
RALET TE şase kiye dem e ekme ee bala ni GB Re e e ANL 219 
PAPER: svei1012 25 250 Sal ün döle ön EYE kaale İsli A SEYLER SAMİR 46,148 
PAUSE Sesimi siri sskdeme sineğe leme aayağe eden sıyansa Küme Yiziyereslas a balaea la desa 270 
PİDE eee sresesame asar desise eleme oğma roi apse es ei al iin se ame dasialay dağ 258 
çe EE ÇE ESR EEE DEMEN eee eee Re eee eey 258 
PEEK Sizsiniz iin eilem eöasaivana viaze 24 balm Be se eyüp ln sal azl e KOMİ Eee SANAZ 149 
PEN si een saşe siyeman sd be kesene sin seksi de da ayak Kolak Sea ala ğe eşe sal 46,149 
Ke e NA e YANE GP PENCE e e 150 
PİECE sağa rey leğ meme SE İRİ üs ek Te daire AR il be Sss siesta Mela das lme 00 243 
PİR yedik see reel San dö deaş sea anl silmek adak İN ağı Sa lamel ir 187,223 
PLİST e seed süye meler sebil BİZDE kel a kale BEBE yare dad ai Tui Günd 262 
BON aye Ga e e ayası salan sks ziyaa ğ enes ooülamanam a) söle sildesn YAA Ulak dei 53,150 
PEOİRea isek esed e e öküze me Düden Moesleimmsi anes Söylerse 150 
e 9 EE SELE PP e CE SEİKCEL OE GEYEPODOE YE Eeee ere Ee e 250 
POALİ Şi aikönine secde dl böl a Soil e YE EYİ ENE EDE a ARMİNE dvi l 261 
RORE; sie sapan play aba dalma De Ül Saba Dye 0 sa BALE BAİN DAYS ISI 
PÖNSE sie seasanlamağl dez sanal saşe ve ds al ğe a leğriyi uae sa lekeli 261 
PORN: ardan alm eee eee Ral Ni BAAR sake ke KAM EMEA AZ 261 
ROSE sein Say see denk sa same alaya ize eee ğa iağa kemi gi valla Ta 151,195 
ROME esi iksa alak BARADA oyeüde ailemi Bese E da İİİ İD İDA Rİ aRİ a NR 250 
PRROPE Seas ii e Sane dalde ee lie iye ele bize mi a aa İkale İL) Yaa 262 


RENE me asmolen usa delilini pepla Yil ele ll dis dal aslana alelade 22,152,357 
PRİNT SRC yi İİ İİİ DEDİLER el Ba BA ELER kiza ia Saü air s1 153,357 
PRINE BABİ iskan mende ll an ia ipa KB kala 153,357 
PRİNT MUSİNG: 5k eie e GEĞBİİSRİRA GİY VD RED Me İZ BAKİ İNLER 153,358 
Erinter SOKGİİ ss. iiesii masal Dere laa Eee GA Ek akk si 8,313 
SPERM süzer si 0008550800000 BRİ İLANA al Slöle me esi süemiemsöel susu eee bi sdeza 272 
BİRİN ös sa öl BERA İK İZİ e İK DİLİ ERİL eba İSE ERİYEN DA İİİ TİNER 223 
PROFİLE sess 31002000608 000161 isem 2d se Ah saa dalin sere edi ee ai 184,214 
PUL üs nene nie de arel sas arr e ŞEŞ Gm ia a Diye adan Bük 258 
KE ai al iL SEMA e e e A ABAZAN İİİ NN Ya a re AES 258 
OYOTLENT sese sere 08 0 GEDİK LİR İĞ LİRİK ŞİŞE KİŞ SİZİ İRDUSİİİİR İSTİLA 245 
RAD 01000001 5 6 DE BOYARKEN e ÜR A GL ei 156 
RAM 41 KE sai e ia e a Lİ le arsa a lee SİNİ a 332 
RANDOM: 5025005001680 208000060007 ÖD DÜK 0 atel DİR İSME A Dİ EE 245 
RANDOMİZE: 5551550055000 85 İRİ İSİKLİ YES İİ LOSE YAN eya a 156 
|» GERME Şİ EŞ em Pepe Se eee ilede e Se ee ER YEY e CEKETİ ED KEECEİ 266 
READ: seste e 0880 ns 0 DE EMİ İRİSİ DAĞLI TE DELİLİK GEN 156,299,368 
REĞYGLE 553 siöeüleise ds sendin Saü'es 005 öy Sn YE İZA odu ales ale EMER BRİ ALAE 262 
REDERP) sasi ük BİEL İLİRİA SİLE LİE İSELER İLİNİ ese A 211 
RELBASE: şe üü esir sense sümen ae e ETİENNE Kd ALSAN 157,377 
RELEASE (LOGO): si süse 7 VESİLE ADI Ya se a Dala a ea Gö miaea kula 268 
REM: sesisösedi mesi use döskemeeime SE müie da TSİ SUAN İR 00İRMİRİ EYE SİYER OE saa 29,86,157 
ŞREMES 52 es ser öl RS a lee derede salin e seda 272 
REMAİN 5s 35 00 0000 5511006080610 080 00 VEYSİ ENİNE İNNİ EDA EİN EDA SE YAAR 158 
REMAİNDER 550070165 506610 0 ÖDE İD VE Gİ İİİ Se a Aİ RİA 245 
REMPROP:E 255015 0580050104 İİİ DOĞUYA EYRAA SİNİ ÜL NV TİLDA A rl İNNİ SALE 263 
REN: sesk el EDİNEN TME LAZ DİNİL ESYA LE TUNE 217 
RENE üs Sü le 66 İİİ e SASİ ŞİR MİYDİ İS İYİSDE GEĞİN ANL İLEN 207 
RENAME sxs övün ile 501605 0067017600000 1 Ö80 0 SE VE OT İSİNİ SENSİN TALE 217,224 
RENÜM s5 0000 EN DEE DİNA GİLES rü a anali 90,158 

BAT 050501010 508800 VİDEODA LEDİ DUSEN SAZ SARKİ ODE SAİNT EZA Şe di 269 
RERANDOM süsü şasesi siiği ron drug UST İDARİ SİİRİNSESİ MİSİR 246 
RESTORE >essüüssesi 000 eu deösaöüsiebisres0e bee MRP e Dee EE MENEM ERE EE ESKA 159,368 
RESUME eki sü 501000181 001005 DA İİİ EYİ SED LİGİ İİNDE SİLEN SUNİS 159,301 
RESUME. NEXT emerler örn öip Mdr sikle sö sena LENS TİUNe DEN NM LENMESİ GR erkek 159 
RETURN ii 0111701100001 EİD İNS DON KETEN EKSEN 30,160,299 
RETURN RÜŞÜ see se sen ie ele BİS EA ESL AL AİR GUek eee Hiee iie Gale He dee GÜNE DEÜ ELE 15,18 
RİGHTS 1500050050080 66 İDİ GESİ İSE ÜTS İDEA öle ili SEBE 160 
Rİ 8 S6 EE EİD İNLEYE İLİZMİR MİNE ÖSLİZESMİL İYİSİ TAŞ OSSLE SERUMU Gülü ger sna siuee disa nsz 266 
RND> süsü sü 0560 0080080 0010000000 VİTESİ GE TİK TİTS İSTİ EGEA TEDİ 161 
RO sansa eledi lale ailede yale e le ia çile sille Ge e er ailemle as ayl klan 267 
ROUND» ü3003105 52050 000 EİN KEY ZEND e İLAN AN İLE 161 
RS232 irsi il İNİ le ia mi ia ade odak kalsalar in Dek daa gezağe dina 222,339 
REX ezer iseliseni vi dünden İSEDE URABEUİLRA SA DELAN KİA Sa e SİLEN İBARE RAMN ALEM öaami Bez 318 
RRZ keder a lan aile deli vine eee odamı tl Sirli di kimse lar kus Ai 258 
| BL ŞE ENE EEE e Fer O MEME ŞE EDENE EYE İREME MEME e ŞOR 22,41,161 


RUN VEOĞO) Eer erke O Aİ Sa akde zldelala zda 269 
SAVESX sağa skar Ee EVİ ESSUDOZRA SE 0000 GEİYO NK EUNE SARİ İA DELİ a İS İEN eee öş 42,162 
SAVE (Kasel)si isi ee 0 DEE İSE ELİE YEN İN SİNE SEY Es SeN kA EE Ki üüm0 0 üye 197 
SAVE (LOGO); sazlinis sürse oval eöesesesani ölsekueş BİYELMSON DA GEL BİNAEN ee L rae GENİN ES 264 
SAVEPİC ize vez 5506850010 000 500 GN Dn VELİS EE İYEEL N üe sü BEYE Se KEYNES 264 
İSGREENCODPY 555 Sözen 82087 ven ERİ AYDAR EDE İSİNİN İLİ ALA SEREN 78,331,397 
İSGREENSWAP:552.1505060100 6510070001003 508 008 İİ OLNA İİAB SAN e Gi le vive se 78,331,397 
SE iii 0d00 0s EEE EEE İSLİCE DERİLİ GEERT ETEK İİK TEZER TAYA AKİRA vE ENR SANMAK Vale 243 
SERİNCE ACE 52 sesle GİRER NESRİN DELİYE alsan ea dö sünek YEMİ ida 222,339 
NS) İğ WE KEOPS ŞE YO Ye ERMEYE KES EFE SeSPEE SEYE YE LUPUE YER 224 
SET 24X80153; ekine GİDA İTİ SLİDER İN EİN ERETNA DEREK RA slbad) 221 
SETBG siyasi işi 000006 005600050 080 Şike UR esasi aekeü meka se iemenier 255 
SERGURSOR 5127 0600 ELELE TAKİ İSİN A SERVAS SR EER GERBA CA GETİR BAD vü eBeiren 252 
SEND elimi gi Se VİN ER EBELER Sel ZN GENİNİN e İYİSİNDEN EEOSE seen san öüirise 265 
SETDEF 0.3107 60002 0260700602 00000000 ÖZDE İĞ SİİE DAN BEYLERİN DEĞİL N SN Dae eğ VE 226 
SETH ili. ez eee 00 GEMİDE A A DİĞ SE İY EDİ ESOZ DİL OLLA İRİLE GİS O TME EEÜ GENE UZEŞ v 259 
SETİSİ eserine iie EBEDE Bea TAY DARUL İİEE SİTE BEKRİ E BESLEDİ STİLİNE 220 
SE TİSENS sinsin vie lizi Beld sak vE e SKİ Giüka Barsan le YİNE e İNNA KEDİLERLE 220 
SETPAL; 51122500 EİN EİD EDENİ EEE DEM EEE DE LİE KARAN Değe 255 
SETPG san iseene ea ESED eraslan le Hanleluğe ODU dede 0Uea vasi Sada ieeia 259 
SETPOS: a0 0100085 EYE 0 İZYRALİL ELA DUYALL sağl m DE Babe BeLNN TTOEYES SESE EA e GEYİK N ET 259 
SETSGRUNGEH een asa ki Bee DAL iL e ei SERA yara GUNEL de Ele e TUEUe eda e 255 
SETSİO: sönme e saşamasla at raamalisetlkağsstek ala iamlakenkalıi Tebesassdezder Mlledeila skbiaseğasssa 222 
SETSPLİE sake Aki Ee TERİN ELİ ELAN TERE ibare seri 252 
SETUP... 22 5evi ören düe 1000700004101 0006 İY Sk Sas e İBİÜe 0 Me Te il ei ül ESERİNİN AİD 230 
SETX lisli sere BEDER ük GEBE İAÜ İSİ eİ e EİD İNLER Dİ STNEEİS RİN dee es ENZA 259 
SENİYE 5541871605600 İSEN EİSYENİ SER İREN Seleme GENE v6 EZEİE gele sin Beria EKS 259 
SE eni siiri die EEE VOLE İSİ ESİNİ İSİN Yed SİL DA SAYESİSİESUA EOS DOME YİEL Eeee Si eZ 256 
SON sek Sille İİNDE O a e LEE e DE Gİ İDRAKİ ESEK 163 
SHİFT TUŞU ön ssireris edek Eösven'e Çe EKMEYE USEMEZN Eeee EMİN esasda 16 
SHOW» (CBJM) s5 0205000000006 EGE P İZ O EUA İski Ter İNEK De 227 
SHOW (LOGO) ssesiremesiss sisi 3061000 BEL AE LİSTESİ ER LEE Gedi Eee İNME el yide d0ake saad se 252 
SHURELE ise sesinde 000060 TER GİRİSİYENİ TEALA aram ie iie 243 
ke) 1 a RE EYER ŞE PR SG ŞİŞE EY YE SE YERKESİK MD ERE 163 
SİN(LEOGO) ee elarle sak VB BUNE GEL RTEUSN ŞE EUN SİLLE SÜNEK İNE İva Dae on 246 
SÖ esime şer eriieisia sa başda sie aebeğalemz iade İLAt ARMEN İRKİ Nasr ündde 222 
SOUND 25 1550005002050 v0 6D 206 İDİ ESİNİ İRDELENMESİ 62,164,296 
SOUND. (LOGO)ssisimezsiesis asx 68500 00100l ei de den DESİ ei a li saye sv ies seir 267 
SPACES 1520401010 07000800380 20005 020ÖE ÖL KASS YEDE GEBE Ea 165 
LO ça RR MEŞİN EE PEERE EEE YENER GELSE e e Pe e ee eRaE KESELER EYE 166,357 
SPEED'İNK >. 5.100 04151000108000080İ0 0602 G5 ESİYOR 0 EA GAVUR y üsse KR vee 166 
SPPFED' KEY. sise eses lee 000 0501000000808 ELİZ SE RU SEİR Baia i akis sağ edğilerbelka 166 
SPEED:WRİTE: 55.0500503 8570181058 südein ine Eğlenin DEE GEİER GEY İT öee 167,198 
SO issn idis sss Deep ie Una SABAN S4 BT ETTE A Te LEDİ EE SEBO GEEK İEEİİADEL sena 167,378 
SOR öüsie seir ei İŞİ LİR SİVİ EĞER A GEİER ARSİN İYTE Se Yaşa ie EŞ 33,168 
SS ilemi dersen saree mii Sair dee GEO İba BİEN OUA SEİNE AİN ONAYA ERSEN DLS 256 
DE EN ee ir EE NEYE MENE EYE EY MM KY MR SO MOL RİSE OYOKNEKİNMNNDA 259 
STAT iie dere ii aile İSEDE Dİ Dak BEDİ İĞ YEMİN SELA BİSA YA İMEİD RUN EA BedeTUNDe 229 
STEP öz sürü 00108000600 0D DİREĞE SYAMSİY RS DYE TURAAMİE DE elesin sie GUNUNE a Kada 29,168 


SEOP (LOGO) sik ozen ue akde eğ A ve YEME LİR KAASEMLLUE Öne İda LE KİR Tea ieia 269 
SERİ ars ör ei LEE A İİ A Nİ DE Bal DA VS ale) İL e e EM dBA İn Sİ 169 
SITRINGİ 235 eze Be EO GEBE ADEDE MEDA LERİ dl aa İLA DüeekaBUi e Madu 169 
SUBMİL 2050001606602 ELİE ŞİR İSEDE ŞENKAYA İT Am İDMİAAKEAEADENEEN 189,232 
SWAP sönme GEZENLER SİMİ MERİ Gerdi ie TENİS NEDENLE REK DUE TETİKLİ Tİ 170 
SEMBOL 8 ie rebize Sl 3 80500001 00MM Edessa 170,277,356 
SXMBOL AFTER: ersssesirin esir eiderebesmizesiümeriiir eğerazlir İYİ örs desrELEaSE0İSEOEEEaEEE 172 
ke) g1 LE b Gy a, SA e OMEŞEeDEE Ye RE ŞİPENE EEE EŞİ eş ii e GİR ee PEN 19,299 
re (001 61 e EE epi GE EE Mr EL Dİ EŞ NE YEMEME MERYEM İYİYE İN 228 
System, TOrMâltis.sersie dese s5101 5006 T0İEKEA SİRİ İSELAN İNN Sebe ee BİS eL MEZ 2 KUL RİĞĞA veba 38,317 
HAB e setöğei Gaia Ban Ve BEER Da lale ğa KOLİ LA EKSEN YL SAİNT ELİ 172,358 
7 GE ENAME ERE İZE MEYE A ER EKME ECER MAKE MCLEE EÇ EŞE SA 173,385 
TAGOEF Yi ören eserine pala sise isi EDE BŞ SESİ ERAY EA EBA aME MANA SUNAR UR 174,385 
TAN esere 208 İİ BİRR E DAİRESİ Pekel AİR iee BERİZİ GİNE 174 
İRAPE isüssersüsüesi tren seret isekeieses sesde ği iiskbei Sk Seki Ea TEMELİ GER EDENE MESA K4 70,207 
İBAPE, İNG eee 081 ea Dade ED öl bel ür eg sök Glee lem Ri aa iie dele 70,207 
TAPE. “OLA vie enne adele ese GAMER Te US İEORİN KEDER DEL AMİ İNSİLEEİ KE eİie 70,207 
Tape soketi.sseisssei sss iie ies eme süre Ein ie aba YS eya las EEE De ler 310,311 
TEST ire e GELDİİ İİİ İS ENA SEY EEZE DİLEYİN EİN e TENSE BASE YERİYLE 174 
TESİR: m seerimaz saa da Dima e as İNİ lr Bade nani sa eni laa ek ai b İda Gale 174 
TERİ Gi 0500800706000 İSE SEASİDE İİİ SİDİK ESİRLERİ ELK GARA ad 250 
Hİ eek er ee EYER EM eee Eeee EE GRE EY GR EEEEMOY e EE ENER EYER EEE EURİUEE 260 
FHING süse iie ke Ea YERE EA EDİZ DE EMONİŞRE DUR İSELER BULAYIM DİYER 30 249 
EHROME imes ami de ler e lal edl iler elden dll alimez saza saa aaa ulasan Saü 270 
3 2) 1) MOM Si AMES EE Seç YME MOON eyle Mi ee Di ENE ME DOYAR MEME MEERİ 175 
© ME GA ORK EK e DE NN İM Sa YOR e KA EE EDE 175 
O MEOGO): sela az ieselemsadi sel eri ndla e kia lasik kel bizi 250 
8) 1 b Gr iy YEN e e ME NNRe AEANO PE Dİ Ee SON 66,116,369 
TFOPLEVEL 2s deği ele eek se ese La KİA İNS SİLEDaU mesire müme isil se lede 211 
TOWARDS: 00108000210 01080000 00608 SİDE İRİSİ MİL ELİ Rİ AŞMA NÜNLUNMS Gİİ ev 260 
TRACB iz 0500000 BEER AE KİSİK GELSELER İNEA LR EE nene 270 
MV <0) <) Ze ene Ka Piro yip e BİSE ime Meg MERK EEE EM ye efe yi 175 
RON se Hibe şel ae Gs Dan GE Dai e e ASİDOZ eke İa m ES ele bead Da YALE İNLER 175 
TRUE işaresi iade BİEN Büüe o SEAL EZA seases raya ie eda ma Sie ieğeal aaa rates 272 
Yİ bee A ŞER SEİNE EEE Si KE PER SİRENE DERİNE E e PİRE AYNKTRNCİEC YE SİKİ ESEK ENER 252 
TV salidıSlssekersesrissisüde li iesiress Le BUBE YONU e dre BİMER DEEEİEB İKEA SİLİNEREK SEA ve 3,5 
TP eesirizile ma sil BERESİ KENE BİRE NİŞ DİE 0 AÜ ŞE İEAİLL TY İK MATİK Bean eE 218 
"TYPE ağeerlende v50ü Şenal öğe EE gepl LEMİ YADES İN SN Galen ATE Ga ali de 218,224 
EYPE (BEOGO)sassi özle ke 158TL AÜ NİN GAÜ ELİA EYE ENİŞTEMİN» 253 
8 e MEYER O NODİ EE RERDEE ME EEE MENEM MELİ NMEşi Kr KON 244 
İN Dü elesiz öei es see Bü laa Ea ili kümese ies dile bedke a Kek DESEEDADEL RAİD a aa KA mh 176 
ÜRPERS 50031500 1 değse a allak Bali A a Bl BİZSE aa 176 
1 be BE Bp ça ep e re cem kez Eeee EMS EE MERE Se RL EO KANİ OR 218 
ÜBER: sisi sy Dale ül ee EEE il inen ln DERN RE a LAL 218 
İUSER ize ear sümeni a bes ace bl e KA BE Ml aa DAR A 207 


USİNG ai eda iile e örer buğra birime arel klei ağa saad ales Bü cal 218,359 


YDÜ. iyii süeereklesisaslaleseğe ivekekensdalderikiesiseineseğesisdişudseıya serada 187,321 
Wendor .Tormtatıın neee free De İri DİR BALE RAN sie YİNE BUZA RU e İİ 228,318 
Volume Kontrol. svsemseseüiiesig anla Oka GE gelini TE DEN YA BU RAğ Pİ HAYALE See esad Be 9,67 
VPOS Si ELSE 8002 ELE EEİ İRADE SİSE SUE eki saman eğ adanada He 2 alk De Dama SE 177 
147 9 GE e çe MERE O Er Eee EEE EKE ELİE İD 178 
WAVE (LOGO) sese ense TER İRİLEİĞİK SANSAR İLDE delik Ka ale BEYT İŞ ZA 269 
WATCEL sess sstimsuzirssiiad östaki yeğeneriaeade Dizleüö0MleE Ee KES 0 SAA Nez OE Eserde Baza 270 
WEND 510 005600 KDR ee KE İRİSİ MEİSİDE GENE a e İİ ENE dikis 178,302 
WHERE 355775 0500000060106 500 DEDİ EŞ KEİ DELETE SEMER ME elele sü ErAAAE 244 
WELLE - 5512000180015 dör ere SİZE bela 85 GOÜ ae Gaia şa dale KE eya söğirişedimni 178,302 
6 BN (4 e PM Ee EKA AN EM DE İÇ EYE SY DMEEY EM ee ey YE RP 178 
WİNDOM 5252108025 0085070800010 DAL GİRDİ İGK ÖYMEN VEYE ESA 93,179,277,362 
WINDOW KİEOGO) iseler ds 02 ear 00 eyes eme laz Base sisi 0E ri sEEN ei sea Pke 256 
WENDOW SWAP: 2 esas enbe vr 2010 ağ La BUBBLE LERE BEİ TE SAN LEY GRU senn 179,362 
WORD: 1540001500500 Nba Babe b Ge Sİ AA e BERLEN ei eğen 244 
WOÖRDPsesö 5000011 basada sö 3 ği Se al Hünel belanı DUB DÜDUA De EE ae İĞE GO GAMES LANE 244 
MMRAP zerre SEBEN EL Eki EE sre izin smile ze sadik Bimde seks eee sise 256 
WRİTE 551.021 5 İİ İLİK DENEDİM AMARE SE SUS LALELİ 91,180,362 
WERITE <(KASEİ)iarssei semi eN ELİN ENİK Kel emi üm ala kasa Ba AMeDMaL AYR EUMa e 196 
KOR ia seller Sağ aaa kle Da DE ENİ nel ila Sl ai Ab LE ve ale gale 181,355 
POS izleam daneli abe EİN O elde BUEeİBİLE EL SĞESU MULTİ EEE MANY RİKER İZ 181 
XSUB 2320000401 202 yn DALİ GE e TERÖRE DİR BAKİYE ERAS ANN Bide Miele İNAL e 232 
YPOS: seed seal ssa Sa FEAT İG Al EDİN YİRMİ AŞ Sa aaa iğ aa a dene GORA DUR 181 


Ofset Hazırlık-Baskı: Stil Matbaacılık A.Ş. 511 96 87-88 İSTANBUL 
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EKAKOMP BİLGİSAYAR SAN. ve TİC. A.Ş. 
MECLİSİ MEBUSAN CAD. SOMER HAN NC: 81-83 FINDIKLI-İSTANBUL 
TEL: 151 37 24-25 TELEX: 25023 EKOP TR. FAX: (90) (1) 151 22 96 
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